UserForm password masking not working

[KarinG]

Hi.
I created a UserForm that accepts a password. The property PasswordChar is set to *. This works great in Excel 2010. When I try using the form in Excel 2016 it does not work. The password is literally all asterisks. Any idea on what is happening and how I fix this? I really would like the password to be what I type in and not all stars.
Thanks for your help.
Karin

 

[Fluff]

Ok remove the passwordChar property & try this

[COLOR=#0000ff]Option Explicit
Public disev As Boolean
Dim StrPasswd As String
Dim StrAsterisks As String[/COLOR]


Private Sub CommandButton1_Click()
    MsgBox StrPasswd
End Sub
Sub Textbox1_Change()

If disev = True Then GoTo xit

    StrPasswd = StrPasswd & Right(TextBox1.Text, 1)
    Debug.Print StrPasswd
    StrAsterisks = StrAsterisks & "*"
disev = True

    TextBox1.Value = StrAsterisks
xit:
disev = False

End Sub

The items in blue must go at the very top of the module

 

[Fluff]

This is with your code as well

Option Explicit
Public disev As Boolean
Dim StrPasswd As String
Dim StrAsterisks As String


Private Sub cmdSubmit_Click()
    Dim Ws As Worksheet
disev = True
    Me.Hide
    On Error GoTo PasswordError
        MsgBox StrPasswd
        For Each Ws In ActiveWorkbook.Worksheets
            Ws.Unprotect Password:=StrPasswd
        Next Ws
        StrPasswd = ""
        StrAsterisks = ""
        Me.txtPassword.Value = ""
        MsgBox "All worksheets unlocked"
        Unload Me
    Exit Sub
PasswordError:
    MsgBox "Invalid password - please try again."
    StrPasswd = ""
    StrAsterisks = ""
    Me.txtPassword.Value = ""
    Me.Show
'    txtPassword.SetFocus
End Sub

Sub txtpassword_Change()

If disev = True Then GoTo xit

    StrPasswd = StrPasswd & Right(txtPassword.Text, 1)
    Debug.Print StrPasswd
    StrAsterisks = StrAsterisks & "*"
disev = True

    txtPassword.Value = StrAsterisks
xit:
disev = False

End Sub

 

[KarinG]

Thank you!!!! That works great!

 

[Fluff]

Glad to help & thanks for the feedback