输入密码显示星号

ba3259878266 · 发表于 2023-4-5 22:02

Private Sub Workbook_Open()
If Not (InputBox("密码确认", "系统提示", "") = "123456") Then
Application.Quit
End If
End Sub

上面是设置打开Excel时要求输入的密码怎样设置密码框里面显示的是星号不是直接显示123456 谢谢各位老师帮忙

taller · 发表于 2023-4-6 01:11

taller · 发表于 2023-4-6 01:12

请参考《Excel VBA经典代码应用大全》

ba3259878266 · 发表于 2023-4-6 04:51

taller 发表于 2023-4-6 01:12
请参考《Excel VBA经典代码应用大全》

老师你好能帮忙写一下吗本人水平有限不会编辑谢谢

taller · 发表于 2023-4-6 07:58

ba3259878266 发表于 2023-4-6 04:51
老师你好能帮忙写一下吗本人水平有限不会编辑谢谢

2楼已经有代码了，如果懒得动手，那么 ...

ba3259878266 · 发表于 2023-4-6 08:20

taller 发表于 2023-4-6 07:58
2楼已经有代码了，如果懒得动手，那么 ...

好的谢谢老师

vistababy · 发表于 2023-4-6 10:56

本帖最后由 vistababy 于 2023-4-6 11:00 编辑

不用这么复杂的，直接另存为，右下角“工具---常规选项”，设置一个打开密码不是安全得多？打密码就显示*号。

你这种用VBA搞密码，意义不大，人家直接开高宏安全等级或出现密码框的时候按键盘Ctrl+Break就进去了。
当然如果是纯粹为了研究这位置如何显示*号的问题，可以忽略。

截屏_2023-04-06_10-57-50.png

ba3259878266 · 发表于 2023-4-6 18:53

vistababy 发表于 2023-4-6 10:56
不用这么复杂的，直接另存为，右下角“工具---常规选项”，设置一个打开密码不是安全得多？打密码就显示*号 ...

谢谢老师很好用

vistababy · 发表于 2023-4-6 22:41

本帖最后由 vistababy 于 2023-4-6 22:43 编辑

ba3259878266 发表于 2023-4-6 18:53
谢谢老师很好用

不客气。这个密码如果有10个字符以上，大小写+数字+下划线*号等特殊字符组合，xlsx文件目前应该无人能破，改成zip也是打不开的。。vba保护真没有用。

ivccav · 发表于 2023-4-7 08:42

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

[求助] 输入密码显示星号

评分

评分