Question

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

jidong2107:你好,我觉得你说的程序基本可以满足我的需求.
再请教你一个问题.就是,我执行这个程序之后,点击FORM窗体右上角的X,如何一点击
就关闭整个程序???急求!!!

Answer 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

Answer 2

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