vba中设置用户名及密码

[vb]代码库

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