vba怎么把密码设为隐示的.就是输入的密码,显示的是*****?

2025-03-10 23:29:46
推荐回答(2个)
回答1:

textbox控件的PasswordChar属性设置为*
看你的代码我觉得需要些修改:
1.工作簿打开就要验证密码的代码应该是“插入”--模块,在模块里面用下面的过程
Private Sub auto_open()
End Sub
2.inputbox只是简单的输入框,它不具备掩码属性;

所以你应该在VBA中插入一个包含两个Textbox和Command的用户窗体,Textbox的PasswordChar属性为*,并在模块的auto_open过程中调用。
模块代码如下:
Private Sub auto_open()
UserForm1.show
End Sub
用户窗体代码如下:
Private Sub CommandButton1_Click()
if textbox1.text = "" or textbox2.text = "" then
msgbox "请输入用户名或密码"
exitsub
end if
if textbox1.text= "CANGKU" and textbox2.text = "7788521" then
Unload Me me
else
msgbox "用户名或密码输入有误,请重新输入!"
exitsub
end if
end sub

回答2:

选择作为密码输入的文本框控件
在属性设计栏里把passwordChar的属性里设置为:*