CheckBox to see password

**Ingolf** · 08-24-2012, 05:14 AM

Hello,

I have a userform for entering the password. When entering the password you can only see stars. I want to put a checkbox that if checked would allow to see password and if unchecked to see only stars.
Can somebody help with.

Thank you.

**Admin** · 08-24-2012, 08:06 AM

Hi

This goes in Userform module.

Code:

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.TextBox1.PasswordChar = "*"
    Else
        Me.TextBox1.PasswordChar = vbNullString
    End If
End Sub

adjust the checkbox and text box name.

**Ingolf** · 08-24-2012, 12:47 PM

**Admin** · 08-24-2012, 01:40 PM

Thanks for the feedback.

**Rick Rothstein** · 08-26-2012, 09:05 PM

Originally Posted by Admin

This goes in Userform module.

Code:

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.TextBox1.PasswordChar = "*"
    Else
        Me.TextBox1.PasswordChar = vbNullString
    End If
End Sub

adjust the checkbox and text box name.

You can shorten that code down to this...

Code:

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).

**Ingolf** · 08-26-2012, 10:53 PM

Originally Posted by Rick Rothstein

You can shorten that code down to this...

Code:

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.

**Rick Rothstein** · 08-26-2012, 11:08 PM

Originally Posted by Ingolf

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** · 08-26-2012, 11:20 PM

Originally Posted by Rick Rothstein

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:

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** · 08-26-2012, 11:45 PM

Originally Posted by Ingolf

This is the code:

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...

Code:

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

**Ingolf** · 08-26-2012, 11:56 PM

Originally Posted by Rick Rothstein

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

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.

Thread: CheckBox to see password

Thread Tools

Search Thread

Display

CheckBox to see password

Similar Threads

Set "Access content programmatically" checkbox with vba

Password Holder

Bookmarks

Bookmarks

Posting Permissions