Modifying Code so * shows up in password box

[bamaisgreat]

The code below shows the password as it is entered. Could someone show me how to edit it were it will just show the *. This is for a specific macro Im protecting.

Dim pass As String
pass = "bama" 'Change this to whatever your password needs to be
If Not InputBox("Enter Password", "Password") = pass Then Exit Sub

 

[jaybee3]

You should create a userform, then it's one of the properties of a textbox:

PasswordChar

And you can set it to what you want.

 

[bamaisgreat]

In my situation im just using a key comination to run the Macro (ctrl + shift + k). Im just trying to make sure it is not run accidentaly.

 

[jaybee3]

The only way, AFAIK, to hide the characters as you type them is to change the inputbox to a custom userform and use the property PasswordChar as outlined above.

To stop it from being run accidentally, why don't you try adding a button or other clickable to the workbook rather than use key combinations?

 

[bamaisgreat]

Ill give it a try. Do you possible no some code to get me started? Maybe were i can click on a button and the user form pop up and be ready for password to be entered.

 

[jaybee3]

private sub showPasswordbox

fPassword.show

End sub

Where fPassword is the name of your userform.