设置输入密码时，密码显示为******

指尖的阳光、 · 发表于 2024-9-20 09:25

请教：以下vba在设置输入密码时，密码显示为******，谢谢。

Sub 管理系统()

myPW = "123456" '设置密码

p = InputBox("请输入运行密码", "温馨提示！", Default)

If myPW = p Then

Dim wkb As Workbook

Set wkb = Workbooks.Open("F:\\管理系统（定时更新）.xlsm")

Else

MsgBox "密码错误，请重新输入！", , "温馨提示！"

End If

End Sub

kevinchengcw · 发表于 2024-9-20 14:12

inputbox没这功能，用窗体里的textbox可以设置密码字符，能实现这个功能

lss001 · 发表于 2024-9-20 17:32

本帖最后由 lss001 于 2024-9-20 17:34 编辑

详细的见以下附件

测试.rar (21.16 KB, 下载次数: 6)

指尖的阳光、 · 发表于 2024-9-20 20:09

lss001 发表于 2024-9-20 17:32
详细的见以下附件

为啥无法运行?

指尖的阳光、 · 发表于 2024-9-20 20:11

lss001 · 发表于 2024-9-20 21:16

指尖的阳光、发表于 2024-9-20 20:11

以上附件office64位
如果是office32位
1.把PtrSafe全部删除
2.把LongPtr全部替换为Long

指尖的阳光、 · 发表于 2024-9-20 21:49

lss001 发表于 2024-9-20 21:16
以上附件office64位
如果是office32位
1.把PtrSafe全部删除

十分感谢，学习了。

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

[求助] 设置输入密码时，密码显示为******