Excel 一个简单实用的登陆界面，可以限制用户权限

有朋友需要，做了一个简单的登陆界面，随便分享给有需要的同学：

1、可以限制登陆用户权限，自己可以根据需要修改代码；

2、在禁用宏的情况下，看不到任何用户数据，只能看到空白表格；

3、从简单实用出发，代码简单，高手勿喷；

4、为了界面美观，登陆按钮用了Label。但在登陆时无法响应回车键，只能用鼠标点击，不知能否实现回车键响应；

5、管理员和工程密码：888，用户密码：123

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = 13 Then

        Dim UserID$, password$, r As Byte

        UserID = ComboBox1.Text

        password = TextBox1.Text

        Set sht = Worksheets("username")

        r = sht.Range("A2:A" & sht.[A65535].End(3).Row).Find(UserID, , , xlWhole).Row

        If sht.Cells(r, "B").Text <> password Then

            TextBox1.Text = ""

            MsgBox "密码不正确"

            TextBox1.SetFocus

            Else

            Unload User

            Worksheets("主界面").Activate

            Call 隐藏主界面元素

            Call 更新铜价

            Application.Visible = True

        End If

        KeyCode = 0

    End If

End Sub

谢谢，用你提供的代码修改后，只能响应回车键，不能响应鼠标，效果不理想。

不太明白，我这里输入完密码回车可以登陆，用鼠标点击label1登陆也行。