[已解决]修改代码

武林长风

请大师帮忙修改这段代码：我想把登陆名改为：张三，密码改为123456.不会改，请帮忙。
'判断用户名和密码是否输入正确
    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         

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-2-7 21:49

CTRL+F3，名称管理器。
你看看这两个名称对应的值就行了。

1. If CStr(User.Value) = "张三" And CStr(Password.Value) = "123456" Then
   
2. 
   
3.     Unload Me                              '关闭登录窗体
   
4.     Application.Visible = True

复制代码

跳转到最佳答案楼层

hwc2ycy

看看名称里的Username和userWord的值。

武林长风

hwc2ycy 发表于 2015-2-7 21:40
看看名称里的Username和userWord的值。

不明白，这是别人的，我想改一下登陆名和密码，请帮忙。

hwc2ycy

CTRL+F3，名称管理器。
你看看这两个名称对应的值就行了。

1. If CStr(User.Value) = "张三" And CStr(Password.Value) = "123456" Then
   
2. 
   
3.     Unload Me                              '关闭登录窗体
   
4.     Application.Visible = True

复制代码

武林长风

hwc2ycy 发表于 2015-2-7 21:49
CTRL+F3，名称管理器。
你看看这两个名称对应的值就行了。

哦，看到了，多谢版主！！！