密码保护的复选框

Question

我想要一个执行以下操作的代码 如果选中了复选框，则复选框将被禁用并显示为灰色。 我通过以下代码实现了这一点：

Private Sub CheckBox1_Click()
CheckBox1.Value = False
CheckBox1.Enabled = False

但是如果输入密码，我希望能够编辑这个复选框。  如何将其嵌入到上面的代码中？

谢谢，

Answer 1

=

当您在文本框中按Enter键时自动选择A1，因此它将失去焦点。

当文本框失去焦点时检查密码，如果密码正确则启用复选框。

单击复选框时检查密码，如果密码不正确，将被禁用。