《别怕，VBA其实很简单》教材中的登录窗体案例

ziggle_lee

《别怕，VBA其实很简单》教材中的登录窗体案例名称管理如图片附件：
代码和教材中一样，但输入名称管理器储存的用户名user时，程序总是过不去：
Private Sub cmdok_Click()
    Application.ScreenUpdating = False
    Static i As Integer
    Dim a As String, b As String
    a = Right(Names("username").RefersTo, Len(Names("username").RefersTo) - 1)
    b = Right(Names("userword").RefersTo, Len(Names("userword").RefersTo) - 1)


    If CStr(user.Value) = a And _
        CStr(password.Value) = b Then
        Unload Me
        Application.Visible = True
    Else
        i = i + 1
        If i = 3 Then
            MsgBox "你无权打开工作簿！", vbExclamation, "提示"
            ThisWorkbook.Close savechanges:=False
        Else
            MsgBox "输入错误，你还有" & (3 - i) & "次输入机会！", vbExclamation, "提示"
            user.Value = ""
            password.Value = ""
        End If
    End If
    Application.ScreenUpdating = True

End Sub

ivccav

书上的代码肯定是错误的。Name中数字和字符串的存储方式不同。
最正确的方法是在存储和修改userword时，在前面加一个字母，这样就能确定是按字符串存储。取出时少要一位即可。


对于数字：
names.Add "userword","123456",0
存储方式为：=123456

对于字符串：
names.Add "username","user",0
存储方式为：="user"


======================
正确用法:因为无法确定别人输入的是数字还是字符串，
新增或修改userword时加一个字母：names.Add "userword","A123456",0
取出时用：Mid(Names("userword"), 4, Len(Names("userword")) - 4)即可。

ziggle_lee

感谢ivccav指导！
祝您工作顺利！