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