Asterix when password entered into InputBox

**adste89** · 10-29-2012, 10:40 AM

Hi,

I am using the code as below to password protect the use of a macro. Do you know how I can change it to show "****" instead of "password" when the user is typing it in??

Sub test()
Dim pw As String
pw = InputBox("Please enter password")
If pw <> Format(Now(), "ddmmyyyy") Then
    MsgBox "Invalid password"
    Exit Sub
Else
    MsgBox "success"
End If

End Sub

Merci,

Adam

**mike7952** · 10-29-2012, 10:50 AM

I dont know if you can do that with an Inputbox, but you can create a small userform with a textbox for the password entry. Then in the textbox property PasswordChar you can enter * or whatever you want to.