step1:打开VBA后,→对象资源管理器→双击thisworkbook→粘贴CODE1 |
step2:新建一个用户窗体,用默认名称:userform1,拖放两个标签控件,两个文本框控件(passwordchar为:*),一个按钮控件。 |
step3: 双击窗体userform1→双击按钮控件→粘贴CODE2 |
【CODE1】 |
Private Sub workbook_open() |
MsgBox "您好,欢迎使用excel!今天是" & Date |
MsgBox "现在是" & Now |
Sheet1.Visible = xlSheetVeryHidden |
UserForm1.Show |
End Sub |
【CODE2】 |
Private Sub CommandButton1_Click() |
If TextBox1.Text = "此处为用户名" And TextBox2.Text = "此处为密码" Then |
Unload Me |
Sheet1.Visible = xlSheetVisible |
Sheet1.Activate |
Else : MsgBox "请输入正确的用户名和密码!" , vbOKOnly + vbInformation, "提醒" |
TextBox1.SetFocus |
End If |
End Sub |