修改VBA代码求助

huarong7984 · 发表于 2023-5-5 16:50

本帖最后由 huarong7984 于 2023-5-5 16:52 编辑

修改VBA代码求助：

各位大师：

敬请修改左侧VBA代码（即在前端添加密码），以实现：

点击上方“删除”按钮后，弹出需输入密码的弹窗，只有输入正确的密码，并点击“确定”后，才能自动运行删除代码，完成对所有“练习题（N）”工作表的删除；若密码输错，则弹出“密码错误，请重新输入！”的弹窗提示。

谢谢大师的指教与帮助！

ykcbf1100 · 发表于 2023-5-5 17:01

加入下面二句试一下。
st = Application.InputBox("请输入删除密码", "密码输入", "O")
If CStr(st) <> "123" Then MsgBox "密码错误，请重新录入！": Exit Sub

huarong7984 · 发表于 2023-5-5 20:36

ykcbf1100 发表于 2023-5-5 17:01
加入下面二句试一下。
st = Application.InputBox("请输入删除密码", "密码输入", "O")
If CStr(st) "12 ...

ykcbf1100大师：您好！
非常感谢您编写的代码，非常完美！再次谢谢！

huarong7984 · 发表于 2023-5-5 20:37

ykcbf1100大师：您好！
非常感谢您编写的代码，非常完美！再次谢谢！

liulang0808 · 发表于 2023-5-5 20:44

可以使用
Application.InputBox或 InputBox来提示输入密码
msgbox 用来提示错误

具体应用方法，可以查下帮助之类的，论坛内容也很多的

huarong7984 · 发表于 2023-5-5 21:19

ykcbf1100 发表于 2023-5-5 17:01
加入下面二句试一下。
st = Application.InputBox("请输入删除密码", "密码输入", "O")
If CStr(st) "12 ...

ykcbf1100大师：您好！
能否在输入密码时：将输入的密码隐藏显示为“***”？谢谢！

ykcbf1100 · 发表于 2023-5-5 21:20

huarong7984 发表于 2023-5-5 21:19
ykcbf1100大师：您好！
能否在输入密码时：将输入的密码隐藏显示为“***”？谢谢！

这个真没想过呢。

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

[求助] 修改VBA代码求助