《别怕，VBA其实很简单》问题请教！版主及高手指教！谢谢

86371

在学习教程时，第285页的 登录窗体设计，怎么都通不过，请指点一下，看问题出在哪里？
（我是新手。代码个人手打的，没找出什么问题。似乎定义出了问题？）
   

Private Sub workbook_open()
    Application.Visible = False
    denglu.Show
End Sub

Private Sub cmdok_Click()
    Application.ScreenUpdating = False
    Static i As Integer
    If CStr(user.Value) = Right(Names("username").RefersTo, Len(Names("username").RefersTo) - 1) _
        And CStr(password.Value) = Right(Names("userword").RefersTo, Len(Names("userword").RefersTo) - 1) Then       '为什么要-1?
        Unload Me
        Application.Visible = True
    Else
        i = i + 1
        If i = 3 Then
            MsgBox "对不起，超过三次，你无权打开工作簿!", vbInformation, "提示"
                ThisWorkbook.Close savechanges:=False
                password.Value = ""
        Else
            MsgBox "输入错误，你还有" & (3 - 1) & "次输入机会", vbExclamation, "提示"
                user.Value = ""
            password.Value = ""
        End If
    End If
               
    Application.ScreenUpdating = True
      
  
End Sub
Private Sub cmdcancel_Click()
    Unload Me
    ThisWorkbook.Close savechanges:=False
   
End Sub

Private Sub userset_Click()
    Dim old As String, new1 As String, new2 As String
    old = InputBox("请输入原用户名", "提示")
    new1 = InputBox("请输入新用户名", "提示")
    new2 = InputBox("请再次输入新用户名", "提示")
    If old <> "" And new1 <> "" Then
        If old = Right(Names("username").RefersTo, Len(Names("username").RefersTo) - 1) And new1 = new2 Then
            Names("username").RefersTo = "=" & news1
            ThisWorkbook.Save
            MsgBox "用户名修改完成，下次登录请用新用户名", vbInformation, "提示"
        Else
            MsgBox "输入错误，修改没有完成！", vbCritical, "错误"
        End If
    Else
            MsgBox "用户名不能为空", vbCritical, "错误"
    End If
        
End Sub

Private Sub passwordset_Click()
  Dim old As String, new1 As String, new2 As String
    old = InputBox("请输入原密码", "提示")
    new1 = InputBox("请输入密码", "提示")
    new2 = InputBox("请再次输入新密码", "提示")
    If old <> "" And new1 <> "" Then
        If old = Right(Names("userword").RefersTo, Len(Names("userword").RefersTo) - 1) And new1 = new2 Then
            Names("userword").RefersTo = "=" & news1
            ThisWorkbook.Save
            MsgBox "用户名修改完成，下次登录请用新用户名", vbInformation, "提示"
        Else
            MsgBox "输入错误，修改没有完成！", vbCritical, "错误"
        End If
    Else
            MsgBox "用户名不能为空", vbCritical, "错误"
    End If
   
   
End Sub

lzqlaj

传个附件，记得以前有人问过，是密码不对，无法登陆。

86371

附件，请高手指点一下，看问题出在哪里？
窗体中 用户名、密码的TEXT属性原先都是空的（目前设置为默认状态），登录时也提示密码错误。
建立“名称”保存用户名、密码，还没完全弄明白

grf1973

书上名称设置是错的，用户名、密码都要去了""才行。

86371

grf1973 发表于 2013-8-5 10:43
书上名称设置是错的，用户名、密码都要去了""才行。

经验证，果然是。基本搞明白了！谢谢{:soso_e181:}~

书中错误对新手是个误导。目前论坛勘误贴中似乎也未指出。

grf1973

86371 发表于 2013-8-5 16:15
CStr(user.Value) = Right(Names("username").RefersTo, Len(Names("username").RefersTo) - 1)

程序本身没有错，是程序外的名称设置错了。你在这个论坛找找看吧，回答过N次了。

grf1973

在你附件中，用户名用"user“（加引号），密码1234（不加引号），可以登录。登录后把username的名称改为：＝user（不加引号）就行了。

梦梦的明明

《别怕，VBA其实很简单》的勘误贴在哪里？