按照书例写个登入界面，结果原档打不开了

DXJ_DHX

第一次学VBA，按照书例写个登入界面，直接到登入界面（输了用户 USER + 密码 6541  也没用），结果原档打不开了（看不到原代码了），那位大侠能帮忙处理吗？

DXJ_DHX

附档在username里面执行界面放了很久，居然又回到了EXCEL档，但输了用户/密码，总是跑到密码错误的语句里面
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
     applicaation.Visible = True
  Else
     i = i + 1
     If i = 3 Then
       MsgBox "对不起，你无权打开工作簿！", vbInformation, "提示"
       ThisWorkbook.Close savechanges:=False
    Else
       MsgBox "输入错误，你还有" & (3 - i) & "次机会！", vbEXClation, "提示"
       User.Value = ""
       PassWord.Value = ""
    End If
  End If
  Application.ScreenUpdating = True

End Sub

ggsmart

你设置的用户名和密码都是加引号的，那你在登录时，输入的用户名或密码也要加引号才行。
试试看是否这样

DXJ_DHX

ggsmart 发表于 2016-7-22 16:18
你设置的用户名和密码都是加引号的，那你在登录时，输入的用户名或密码也要加引号才行。
试试看是否这样

谢谢大侠哦，真的是这样，但又出现运行是错误424，按退出可查看代码

DXJ_DHX

DXJ_DHX 发表于 2016-7-22 17:29
谢谢大侠哦，真的是这样，但又出现运行是错误424，按退出可查看代码

帮忙看看，谢谢

自己看好了，多了个a（application.Visible = True）
Unload Me
     applicaation.Visible = True