[已解决]vba 加密显示“***”

xhuang · 发表于 2013-12-28 17:00

本帖最后由 xhuang 于 2013-12-30 10:39 编辑

详细如附件！

book1.zip (33.42 KB, 下载次数: 12)

冥王 · 发表于 2013-12-28 17:04

要用窗体才可以 inputbox方法跟函数都是不行的

xhuang · 发表于 2013-12-28 17:16

冥王发表于 2013-12-28 17:04
要用窗体才可以 inputbox方法跟函数都是不行的

inputbox 不是很懂，能否，帮忙！

hwc2ycy · 发表于 2013-12-28 17:25

[已解决]能不能把密码改成星号？
http://www.excelpx.com/thread-296205-1-1.html

zjdh · 发表于 2013-12-28 18:21

本帖最后由 zjdh 于 2013-12-28 18:23 编辑

这个比4楼介绍的简单一点，哪位大师的作品忘了。

inputBox对话框中输入数字显示为星号.rar (10.71 KB, 下载次数: 49)

xhuang · 发表于 2013-12-28 20:26

zjdh 发表于 2013-12-28 18:21
这个比4楼介绍的简单一点，哪位大师的作品忘了。

怎么就用到我需要的excek vba中呢，请教！

zjdh · 发表于 2013-12-28 20:54

其他不要动，修改这段宏
Private Sub CommandButton1_Click()
Dim hwd As Long
lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
AA = InputBox("请输入字符", "密码inputbox")
If AA = 123456 Then
MsgBox "密码正确!可以登录"
Else
MsgBox "密码错误!"
End If
End Sub

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

[已解决]vba 加密显示“***”

相关帖子

点评

评分

评分

点评

评分