关于定义名称的赋值和通过names（“定义名称”）.RefersTo返回值不一致

1786351070

刚学习《别怕，EXCLE VBA 其实很简单》第6章“设置一个简单的登录窗体”时，出现以下异常，请高手帮忙分析指导改正，谢谢
1、定义名称如下
file:///C:\Users\lin\AppData\Roaming\Tencent\Users\1786351070\QQ\WinTemp\RichOle\R}6$TM3)Y2G]9%}P9E`E$(W.jpg




2、通过  msgbox Names("UserName").RefersTo   检查返回值为=“user”




3、导致在登录时，用户名要写成“user”，如图
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



4、如果我只想按 user 来登录程序需要怎么修改，请高手指点。

谢谢

jsxjd

上传 excel 文档

1786351070

jsxjd 发表于 2014-11-23 19:59
上传 excel 文档

已补挂，请帮忙，谢谢

jsxjd

Private Sub CmdOK_Click()
    Application.ScreenUpdating = False
    Static i As Integer
    '判断用户名和密码是否输入正确
    If User.Value = Evaluate(Names("UserName").RefersTo) Then
        Unload Me
        Application.Visible = True
    Else
        i = i + 1
        If i = 3 Then
            MsgBox "对不起，你没有权限打开！", vbInformation, "提示"
            ThisWorkbook.Close savechanges:=False   '关闭当前工作簿，不再保存更改
        Else
            MsgBox "输入错误 , 你还有" & "(3-i)" & "机会。", vbExclamation, _
                "提示"
            User.Value = ""
            Password.Value = ""
        End If
    End If
    Application.ScreenUpdating = True
               
            
End Sub

jsxjd

简单登录窗体设置.rar (772.28 KB, 下载次数: 92)

2014-11-24 10:28 上传

点击文件名下载附件

snake3647

感谢分享了，我也遇到这个问题了

异乡漂泊2018

jsxjd 发表于 2014-11-24 10:25
Private Sub CmdOK_Click()
    Application.ScreenUpdating = False
    Static i As Integer

怎么修改后不用密码也能登录？

异乡漂泊2018

jsxjd 发表于 2014-11-24 10:25
Private Sub CmdOK_Click()
    Application.ScreenUpdating = False
    Static i As Integer

修改后不用密码也能登陆！

irpcd

想问下，代码中为什么是Len(Names("UserName").RefersTo) - 1而不是Len(Names("UserName").RefersTo) ？这里为什么要将字符数-1？

VBA小白555

irpcd 发表于 2020-3-19 10:24
想问下，代码中为什么是Len(Names("UserName").RefersTo) - 1而不是Len(Names("UserName").RefersTo) ？这 ...

因为Names("UserName").RefersTo的值是 =“user”
最左侧有一个等于号
长度-1之后，用Right语句，相当于从右取n位的值，就相当于把=给去掉了，输出的值为“user”