Masking password characters in VBA code

[BenKenya]

Dear Mr Excel,

I have created a password activated spreadsheet, but I cannot find how to 'Mask' the characters of the password box, does anyone know how to help?

I have created the code below;

Sub Run_Password_Admin_Macro()

'Password protect for Admin

Dim strPassTry As String
Dim strPassword As String
Dim lTries As Long
Dim bSuccess As Boolean
strPassword = "Password123"
For lTries = 1 To 3
strPassTry = InputBox("Enter Password please", "RUN MACRO")
If strPassTry = vbNullString Then Exit Sub
bSuccess = strPassword = strPassTry
If bSuccess = True Then Exit For
MsgBox "Password incorrect"
Next lTries

If bSuccess = True Then Run "Unhide_Admin_sheets"

MsgBox "Welcome"

This works great, but i would like the characters to show ****** in the input box. I have found some information on line but I am not sure how to input into my code, the code below refers;

Dim strPasswd As String
Dim strAsterisks As String

Sub tbxPassword_Change()

strAsterisks = strAsterisks & "*"

strPassword = strPassword & Right(tbxPassword.Txt, 1)
tbxPassword.Txt = Asterisks
End Sub

Sub CommandButton_click()
PasswordChecker strPasswd
Unload Me
End Sub

Is it possible?

Thank you

Ben

 

[Trevor G]

It would be easier to use a UserForm with a Textbox and in the properties of the TextBox you can assign the Mask character you want.

 

[dmt32]

There is an article you can read here:Mask your Password with this VBA InputBox - wellsr.com
that shows a way how to do what you want.

As an exercise, it is quite clever but as already suggested, it is much easier to make your own with a userform.

Dave

 

[BenKenya]

Thank you, not easy.

B