how do i make the input text box text show as *'s when the person typing the passcode in to the input box

[Craig_Moore]

Hi All

i have the code below but my boss wants the input box to show ***** when he is putting in the code as he often has to do this in front of staff

please can some one help me

thanks

Private Sub UNPROTECT_ALL_SHEETS_Click()
Application.ScreenUpdating = False
On Error GoTo WrongPS
unpass = InputBox("Please enter the password:")
For Each Worksheet In ActiveWorkbook.worksheets
Worksheet.Unprotect Password:=unpass
Next
Exit Sub
WrongPS: MsgBox "Please check your password ."
Application.ScreenUpdating = True
End Sub

 

[dmt32]

Hi All

i have the code below but my boss wants the input box to show ***** when he is putting in the code as he often has to do this in front of staff

Hi this question is often asked & it has been done here: Mask your Password with this VBA InputBox - wellsr.com

You can though, just create your own inputbox using a userform and simply specifying the textbox passwordchar property "*"
one example here may help: Excel Userform Login - Online PC Learning


Dave

 

[mart37]

see #2

 

[Craig_Moore]

sorry for the delay on reply, thanks for the help, i have gone with the user form

 

[dmt32]

sorry for the delay on reply, thanks for the help, i have gone with the user form

No worries appreciate feedback glad suggestion helps

Dave