为什么这个登录窗体测试中无法使用设定的用户和密码登录？

hongyunhada

各位VBA大神：
      见贴好！如图所示，此登录界面，测试中，连自己也登录不了，是何原因？望指点迷津！万分感谢！
     

登录图

      设置密码我是在公式名称管理器里面设置。（详细见附件）

代码如下：

1. Private Sub denglu_QueryClose(Cancel As Integer, CloseMode As Integer)
   
2. '当单击窗体右上角关闭按钮时，运行程序。
   
3. If CloseMode <> 1 Then
   
4.     Cancel = 1
   
5. End If
   
6. End Sub
   
7. 
   
8. 
   
9. Private Sub Cmd1_Click()
   
10. Application.ScreenUpdating = False
    
11.     Static i As Integer
    
12.     If CStr(t1.Value) = Right(Names("UserName").RefersTo, Len(Names("UserName").RefersTo) - 1) And CStr(t2.Value) = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1) Then
    
13.     Unload Me
    
14.     Application.Visible = True
    
15.     Else
    
16.          i = i + 1
    
17.          If i = 3 Then
    
18.             MsgBox "对不起，你无权打开工作簿！", vbInformation, "提示"
    
19.                ThisWorkbook.Close savechanges:=False
    
20.         Else
    
21.             MsgBox "输入错误，你还有" & (3 - i) & "次输入机会", vbExclamation, "提示"
    
22.             t1.Value = ""
    
23.             t2.Value = ""
    
24.          End If
    
25.     End If
    
26. Application.ScreenUpdating = True
    
27. End Sub
    
28. 
    
29. Private Sub Cmd2_Click()
    
30. Unload Me
    
31. ThisWorkbook.Close savechanges:=False
    
32. 
    
33. End Sub
    
34. 
    
35. Private Sub cmd3_Click()
    
36.      Dim old As String, new1 As String, new2 As String
    
37.      old = InputBox("请输入原用户名：", "提示")
    
38.       new1 = InputBox("请输入新用户名：", "提示")
    
39.        new2 = InputBox("请再次输入新用户名：", "提示")
    
40.       If old <> "" And new1 <> "" Then
    
41.        If old = Right(Names("UserName").RefersTo, Len(Names("UserName").RefersTo) - 1) And new1 = new2 Then
    
42.        Names("UserName").RefersTo = "=" & new1
    
43.        ThisWorkbook.Save
    
44.        MsgBox "用户名修改完成，下次登录请使用新用户名", vbInformation, "提示"
    
45.        Else
    
46.          MsgBox "输入错误，修改没有完成", vbCritical, "错误"
    
47.          End If
    
48.         Else
    
49.         MsgBox "用户名不能为空", vbCritical, "错误"
    
50.         End If
    
51.         
    
52. End Sub
    
53. 
    
54. Private Sub cmd4_Click()
    
55. Dim old As String, new1 As String, new2 As String
    
56.      old = InputBox("请输入原密码：", "提示")
    
57.       new1 = InputBox("请输入新密码：", "提示")
    
58.        new2 = InputBox("请再次输入新密码：", "提示")
    
59.       If old <> "" And new1 <> "" Then
    
60.        If old = Right(Names("UserWord").RefersTo, Len(Names("UserWord").RefersTo) - 1) And new1 = new2 Then
    
61.        Names("UserWord").RefersTo = "=" & new1
    
62.        ThisWorkbook.Save
    
63.        MsgBox "用户密码修改完成，下次登录请使用新密码", vbInformation, "提示"
    
64.        Else
    
65.          MsgBox "输入错误，修改没有完成", vbCritical, "错误"
    
66.          End If
    
67.         Else
    
68.         MsgBox "密码不能为空", vbCritical, "错误"
    
69.         End If
    
70. End Sub

复制代码

PdLKK

窗体登录管理VBA练习.zip (65.66 KB, 下载次数: 14)

2022-6-27 17:55 上传

点击文件名下载附件

修改了一下，你看看

hongyunhada

谢谢！没有看懂您的思路：怎样对比文本框中用户名与原设用户名是否相同？对应密码之间关系？因为老愚还没尝过字典对象的概念和应用。希望作一些代码解释！
       以上代码是基于将用户、密码设置在自定义名称数据中，并且要能实现更改的。在这个前提下，我不能实现登录的的错误主要是什么 ？如何解决？

hongyunhada

PdLKK 发表于 2022-6-27 17:48
修改了一下，你看看

试了一下您写的窗体代码过程，发现只要乱输入了用户名，就会出现错误，要求调试代码。

PdLKK

窗体登录管理VBA练习.zip (68.84 KB, 下载次数: 16)

2022-7-25 16:08 上传

点击文件名下载附件