パスワードで保護されたティックボックス

Question

私は次のようなコードを持っています。 ティックボックスがチェックされていると、ティックボックスは無効になり、グレー表示になります。 は、私は、次のコードを経由して、これを達成：

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

しかし、私はパスワードが入力されている場合は、このtickboxを編集する可能性を持っていると思います。 これを上記のコードにどのように埋め込むことができますか？

は自動

Answer 1

Private Sub TextBox1_LostFocus() 
    If TextBox1.Text = "secret" Then 
     CheckBox1.Enabled = True 
    End If 
End Sub 

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
    If KeyCode = vbKeyReturn Then 
     Cells(1, 1).Select 
    End If 
End Sub 

Private Sub CheckBox1_Click() 
    If TextBox1.Text = "secret" Then 
     CheckBox1.Enabled = True 
    Else 
     CheckBox1.Value = False 
     CheckBox1.Enabled = False 
    End If 
End Sub 

、ありがとう、あなたはそれがフォーカスを失っますので、テキストボックスに入力して押したときにA1を選択します。

テキストボックスのフォーカスが失われたらパスワードを確認し、パスワードが正しい場合はチェックボックスを有効にします。

チェックボックスをオンにすると、パスワードをチェックします。パスワードが間違っていると、無効になります。