登录窗口的初始密码和用户名设定问题

LTGLT

求大神解答，如附件，窗体中所有按钮代码已写好。按《别怕，excel vba其实很简单》一书P288在“职工档案“工作表中$F$1,$F$2分别定义了名称，指定初始用户名和密码分别为“user”和“1234”,代码没有报错，但是用此用户名和密码却无法登陆，不知为何，求各位大神解答。感激不尽！

ggsmart

代码Names("UserPassword").RefersTo返回的是名称“UserPassword"的引用位置，如图，红方框中的内容：

在你的工作簿中，虽然你在查询界面工作表的F1单元格中保存的是user，但是，名称的RefersTo属性返回的却是“=' 查询界面'!$F$1”，所以你在登录窗体中输入用户名user来登录当然会失败。
既然已经把登录名保存在单元格中了，为什么不直接将登录的用户名同单元格中保存的内容来对比，还要借助名称呢。
比如：
If CStr(TextName.Value) = Worksheets("查询界面").Range("F1").Value And CStr(TextPassword.Value) = Worksheets("查询界面").Range("F2").Value Then
其他地方请作相信的修改