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

brdsz

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

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

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

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

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

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



登录权限-通用版.rar (31.89 KB, 下载次数: 6429)

2014-2-27 14:17 上传

点击文件名下载附件

h3533

不错，支持一下~~~

west21

不错。学习了

h3533

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     If KeyCode = 13 Then
   
3.         Dim UserID$, password$, r As Byte
   
4.         UserID = ComboBox1.Text
   
5.         password = TextBox1.Text
   
6.         Set sht = Worksheets("username")
   
7.         r = sht.Range("A2:A" & sht.[A65535].End(3).Row).Find(UserID, , , xlWhole).Row
   
8.         If sht.Cells(r, "B").Text <> password Then
   
9.             TextBox1.Text = ""
   
10.             MsgBox "密码不正确"
    
11.             TextBox1.SetFocus
    
12.             Else
    
13.             Unload User
    
14.             Worksheets("主界面").Activate
    
15.             Call 隐藏主界面元素
    
16.             Call 更新铜价
    
17.             Application.Visible = True
    
18.         End If
    
19.         KeyCode = 0
    
20.     End If
    
21. End Sub
    

复制代码

用这个代码回车登陆

brdsz

h3533 发表于 2014-2-27 15:32
用这个代码回车登陆

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

h3533

brdsz 发表于 2014-2-27 18:10
谢谢，用你提供的代码修改后，只能响应回车键，不能响应鼠标，效果不理想。

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

jiminyanyan

不错。。。。

alisakura

太好了，谢谢分享。

alisakura

请问“管理员”有什么用？
另外如果要将“用户”放在“管理员”之前，默认显示“用户”，怎么改？

aasd123f

Mark一下~~有空学习~~