CheckBox to see password

[Ingolf]

You can shorten that code down to this...

Private Sub CheckBox1_Click()
  TextBox1.PasswordChar = Left("*", -CheckBox1.Value)
End Sub

If one plans to type this in instead of copy/pasting it... note the minus sign in front of the CheckBox1.Value argument (it can easily be overlooked).

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.

Thank you.