《别怕。。。。》第289页代码不能运行

hgzmal

各位老师们好;
     《别怕。。。》书中，285页 6.6.3一个简易的登录窗体中，“确定”的代码不能运行，不知道是怎么回事？请老师们帮忙！谢谢！
代码是这样的，如下：
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
                        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

chansp

解决没,看看

janezhou531

我也同问，不能运行的

漩涡KID

我也试过了是有问题，我是这样解决的，在名称--定义里把那个="用户名"(就是定义下面的引用值)的那个引号去掉，密码1234也不要引号。然后就能运行了。

漩涡KID

补充：本身代码没有问题，主要是插入--名称---定义里的那个有问题，导致的代码找不到对应的对象

ggsmart

把名称中的用户名和密码去掉引号

etong1969

嗯。去掉引号就可以运行了。{:soso_e127:}因为是初学，很多基础性的东西都不了解，这个代码照书做了三次都无法运行。

yaozhicai

原来玄机在这里啊，怪不得，我也写了很多次都不运行