请问窗体中如设置初始密码,见图~

研-究-僧 · 发表于 2012-11-1 13:52

该贴已经同步到研-究-僧的微博

ggsmart · 发表于 2012-11-1 17:06

这个是设置登录密码啊，有什么问题不明白吗？

研-究-僧 · 发表于 2012-11-1 18:59

ggsmart 发表于 2012-11-1 17:06
这个是设置登录密码啊，有什么问题不明白吗？

设置名称为：UserWord.“引用位置"是什么啊？还有初始密码在那里设置啊？

ggsmart · 发表于 2012-11-2 13:26

引用位置就是这个名称保存的内容啊，这里可以是单元格引用，也可以是具体的常数或文本。文本中使用的是文本"user"，即表示名称UserName保存的内容为"user"

lw9089 · 发表于 2012-11-4 21:52

我也要做一个，问题多多

yamizak · 发表于 2012-11-6 16:32

{:soso_e147:} 还是不明白。。。试来试去未发觉有什么区别。。。嘿嘿

丙林木雨 · 发表于 2012-11-7 17:22

学习了。

525100 · 发表于 2012-11-11 10:37

ggsmart 发表于 2012-11-2 13:26
引用位置就是这个名称保存的内容啊，这里可以是单元格引用，也可以是具体的常数或文本。文本中使用的是文本 ...

Private Sub CmdOK_Click()
Application.ScreenUpdating = False
Static i As Integer
If CStr(User.Value) = Right(Names(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.Value True
Else
   i = i + 1
   If i = 3 Then
      MsgBox "对不起、你无相关工作权限!", vbInformation, "提示"
               ThisWorkbook.Close Savechanges:=False
      Else
            MsgBox "输入错误你还有" & (3 - i) & "次输入机会!", vbInformation, "提示"
                  User.Value = ""
            Password.Value = ""
      End If
End If
Application.ScreenUpdating = True
End Sub
这是登录界面其中一个代码其中 If CStr(User.Value) = Right(Names(Names("UserName").RefersTo, _显示参数无法引用，，

miaojinfeng · 发表于 2012-11-12 14:14

今天刚买了，准备收到好好研究研究！

weixin_sysu · 发表于 2012-11-13 14:23

ggsmart 发表于 2012-11-1 17:06
这个是设置登录密码啊，有什么问题不明白吗？

请问一下 len(names("username").refersto)-1 中为什么要将字符串的长度-1？

		自动登录	找回密码
密码			免费注册