在VBA密码框上encryption密码
我有几个excel电子表格的用户表单，我需要设置一个pipe理面板，用于某些我不希望大多数人访问的任务。
我的问题是，我可以设置一个简单的密码保护forms，但文字总是可见的。 我想尝试encryption它，所以如果有人正在看我的应该或其他pipe理员肩膀之一，那么他们不能看到密码。
反正有没有文字显示为****或类似的东西？
谢谢Al
Private Sub CommandButton1_Click() Dim MyValue As Variant MyValue = InputBox("Enter Password") If MyValue = "lemonade" Then 'lemonade being the password Application.Visible = True Else MsgBox ("Password Incorrect") End If End Sub 编辑 – 我已经修改它按照你的build议，因为我有它来调出一个input框，而不是创build自己的用户窗体。
If Pword2.Value = "lemonade" Then AddPick1.Hide Report1.Hide Unload Me Admin1.Show vbModal Else MsgBox ("Password Incorrect") End If
当密码是不正确的，它会给出不正确的密码错误，但是当它是正确的，它给了我下面的错误（必须先closures最顶层的模式窗体）然而，我有它设置隐藏所有其他forms加载Admin1表单之前？
在TextBox属性中有一个名为PasswordChar的属性。 在这里input您的首选“隐藏”字符。
如果您希望使用“鼠标移动”和“鼠标移动”事件，还可以在表单上添加一个button以显示密码。 在名为TextBox1的文本框中使用名为CommandButton1的button，MouseDown将如下所示：
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.PasswordChar = vbNullChar End Sub
我会离开你去编写Mouse_Up事件。
这个链接会给你的使用，但你会发现很多谷歌search的例子。