CheckBox to see password

[Rick Rothstein]

Hello Rick,

Very nice, but how could I enter the "Me.CheckBox1.Caption =" Password invisible " and " Me.CheckBox1.Caption = "Show Password",when check box is checked or not.
And if you can tell me: by pressing the OK button to write me in cell A2 password and B2 date, and then in A3 and B3 and so on.

Show me the code you have now (as integrated with the code that Admin posted for you)... that way I don't have to try and guess what you have done or what you actually need.

[Ingolf]

Show me the code you have now (as integrated with the code that Admin posted for you)... that way I don't have to try and guess what you have done or what you actually need.

This is the code:

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.CheckBox1.Caption = "Password invizible"
        Me.TextBox1.PasswordChar = "*"
        TextBox1.SetFocus
    Else
        Me.CheckBox1.Caption = "Show password"
        Me.TextBox1.PasswordChar = vbNullString
        TextBox1.SetFocus
    End If
End Sub

Except line in red I get from Admin.
Thank you.

[Rick Rothstein]

This is the code:

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.CheckBox1.Caption = "Password invizible"
        Me.TextBox1.PasswordChar = "*"
        TextBox1.SetFocus
    Else
        Me.CheckBox1.Caption = "Show password"
        Me.TextBox1.PasswordChar = vbNullString
        TextBox1.SetFocus
    End If
End Sub

The following code will function exactly the same as the above posted code...

Private Sub CheckBox1_Click()
  TextBox1.PasswordChar = Left("*", -CheckBox1.Value)
  CheckBox1.Caption = Array("Show password", "Password invisible")(-CheckBox1.Value)
  TextBox1.SetFocus
End Sub

[Ingolf]

The following code will function exactly the same as the above posted code...

Private Sub CheckBox1_Click()
  TextBox1.PasswordChar = Left("*", -CheckBox1.Value)
  CheckBox1.Caption = Array("Show password", "Password invisible")(-CheckBox1.Value)
  TextBox1.SetFocus
End Sub

Woowwww
Thank you very much Rick.