关于多用户登陆界面问题

rainboy7 · 发表于 2022-12-20 11:04

本帖最后由 rainboy7 于 2022-12-20 11:35 编辑

用VBA做了个多用户登陆界面，遇到了两个问题，1、使用正确的用户名和密码登陆成功后，进去到工作薄，显示空白。2、当用户名输入的内容，不是设定的用户名时，vba报错，点击结束，再打开工作薄，就可以绕开登陆窗口。还请高手帮忙看一下，如何解决这个问题。

用户名：王灵彬密码：123

下面是问题图片：

m446781380 · 发表于 2022-12-20 14:03

我用循环给你做了一个，你试试。
你的第一个问题，是你禁用窗体关闭按钮的代码不完整，造成“unload”语句失效
第二个问题是因为find函数本身的使用限制。

rainboy7 · 发表于 2022-12-20 14:33

m446781380 发表于 2022-12-20 14:03
我用循环给你做了一个，你试试。
你的第一个问题，是你禁用窗体关闭按钮的代码不完整，造成“unload”语句 ...

谢谢，你修改后运行可行。还有个小问题，msgbox ”用户名或密码错误” 加在哪里合适，怎么加。

3190496160 · 发表于 2022-12-20 14:43

登录窗体，一般的做法是把用户名设置为下拉菜单，供用户选择，然后输入相应的密码，

rainboy7 · 发表于 2022-12-20 14:46

3190496160 发表于 2022-12-20 14:43
登录窗体，一般的做法是把用户名设置为下拉菜单，供用户选择，然后输入相应的密码，

是的，这样就可以使用find函数了，find的程序执行效率应该会表for循环要快一些吧。

rainboy7 · 发表于 2022-12-20 14:49

m446781380 发表于 2022-12-20 14:03
我用循环给你做了一个，你试试。
你的第一个问题，是你禁用窗体关闭按钮的代码不完整，造成“unload”语句 ...

我在for循环了增加了一个判断和for关闭

For i = 2 To y

If Me.TextBox1.Text = .Cells(i, 1) And Me.TextBox2.Text = .Cells(i, 3) Then

      Unload UserForm1
      MsgBox Me.TextBox1.Text & "，欢迎您！"
      Application.Visible = True
      Exit For
Else

      If i = y Then

         MsgBox "用户名或密码错误"

      End If

End If

Next

xdychina1 · 发表于 2022-12-20 14:50

If Me.TextBox1.Text = .Cells(i, 1) And Me.TextBox2.Text = .Cells(i, 3) Then
MsgBox Me.TextBox1.Text & "，欢迎您！"
Unload UserForm1
Application.Visible = True
End If

xdychina1 · 发表于 2022-12-20 14:51

4楼说的对，一般是下拉选择后只输入密码登陆

xsy我可以很好 · 发表于 2022-12-20 15:08

注册和登录界面.rar (72.44 KB, 下载次数: 15)

登录密码和注册码都是123

m446781380 · 发表于 2022-12-21 09:55

rainboy7 发表于 2022-12-20 14:46
是的，这样就可以使用find函数了，find的程序执行效率应该会表for循环要快一些吧。

如果用户名是确定的，用find函数确实会比for循环快一些。不过个人觉得要看用户量的大小，如果用户量比较小的情况下，循环的时间和find的时间没太大区别。

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

[求助] 关于多用户登陆界面问题