Excel VBA文本框密码保护

Question

有没有办法可以在excel VBA中保护文本框密码。我想让文本框密码的内容受到保护，这样如果有人想要更改文本框的值，它会询问密码。

由于

Answer 1

您已指定＆＃34;这是带有ActiveX控件＆＃34;

的工作表上的文本框

在该表的代码模块中，输入以下代码：

Private Sub TextBox1_GotFocus()

    Dim Password As String

    Password = InputBox("Enter password to edit this field:", "Password")
    If Password <> "MyPassword123" Then Me.Range("A1").Select

End Sub

如果您希望密码框为***，以便在用户输入密码时屏蔽密码，则需要创建带有文本框的用户表单并使其PasswordChar属性设置为*。然后，您将调用userform并让它执行密码检查。