VBA多用户分权限登录窗体代码

菊次郎的冬天 · 发表于 2022-12-4 12:39

新手在网上看到一段关于多用户多权限用户登录的代码，学着做了下发现无法运行。求各位大佬解答！！！！！！1

菊次郎的冬天 · 发表于 2022-12-4 12:41

求大佬解决下

3190496160 · 发表于 2022-12-4 13:28

Private Sub CommandButton1_Click()
Dim zh As Range
If Len(ComboBox1.Text) = 0 Then MsgBox "未输入账号,请输入正确账号": Exit Sub
If Len(TextBox1.Text) = 0 Then MsgBox "未输入账号,请输入密码": Exit Sub
Set zh = Sheets("账号").Range("a:a").Find(ComboBox1.Text, , , 1)
If Not zh Is Nothing Then
If zh.Offset(0, 1) <> TextBox1.Text Then
      MsgBox "密码错误，如忘记密码请联系管理员"
      Exit Sub
Else
      MsgBox "欢迎进入预算管理系统！"
      权限 (ComboBox1.Text)
      Application.Visible = True
      Unload Me
End If
Else
MsgBox "账号不存在"
End If
End Sub
Private Sub UserForm_Initialize()
With Sheets("账号")
   r = .Cells(Rows.Count, 1).End(xlUp).Row
   ar = .Range("a2:a" & r)
End With
Me.ComboBox1.List = ar
End Sub

3190496160 · 发表于 2022-12-4 13:29

目前仅仅是能够登录，其他的没看

分权限登录.rar (27.14 KB, 下载次数: 19)

菊次郎的冬天 · 发表于 2022-12-4 14:57

3190496160 发表于 2022-12-4 13:29
目前仅仅是能够登录，其他的没看

登录是能够登录的，就是不同账号登录进去看的表格是不一样的

菊次郎的冬天 · 发表于 2022-12-4 15:20

忘了说账号密码了 admin 123456

3190496160 · 发表于 2022-12-5 12:08

菊次郎的冬天发表于 2022-12-4 14:57
登录是能够登录的，就是不同账号登录进去看的表格是不一样的

呵呵呵，你得给一个别人继续帮你的动力呀，
自始至终没有依据感谢的话，没有一朵小花赠送

xsy我可以很好 · 发表于 2022-12-5 22:20

分权限查看.rar (37.3 KB, 下载次数: 24)
注册码：123

菊次郎的冬天 · 发表于 2022-12-6 21:41

xsy我可以很好发表于 2022-12-5 22:20
注册码：123

感谢，大佬

菊次郎的冬天 · 发表于 2022-12-6 21:42

3190496160 发表于 2022-12-5 12:08
呵呵呵，你得给一个别人继续帮你的动力呀，
自始至终没有依据感谢的话，没有一朵小花赠送

嗨，谢谢大佬。送你一朵小花花。我昨晚自己研究了下已经解决了

		自动登录	找回密码
密码			免费注册

[求助] VBA多用户分权限登录窗体代码