用VBA如何实现用户登录，输入用户名和正确的密码才可以打开，请问程序该如何去写啊，跪求大家的帮助

用VBA如何实现用户登录，输入用户名和正确的密码才可以打开，请问程序该如何去写啊，跪求大家的帮助

1.VBA工程插入“模块”，添加 auto_open过程；
2.过程中加入代码，隐藏工作表。
3.弹出密码验证userform。
4.验证密码的准确性，执行打开或关闭。

具体代码如下：
Userform代码
Private Sub CommandButton1_Click() '验证密码是不死1111
If TextBox1.Text = "1111" Then
Unload Me
Sheet1.Cells(1, 1).Select
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer) ’关闭窗口自动关闭文件（不保存）
If closeMode = 0 Then
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub

模块1代码：
Private Sub auto_open()
Sheet1.Cells(65536, 1).Select ‘定位最下一行，起到隐藏表格内容的效果，当然方法有很多种，这个比较简单
UserForm1.Show
End Sub