Private Sub workbook_open()
MsgBox "您好,欢迎使用excel!今天是" & Date
MsgBox "现在是" & Now
Sheet1.Visible = xlSheetVeryHidden
UserForm1.Show
End Sub