Password Protect Running of Macro

[John]

Is it possible to Password protect the running of a Macro

I have a Macro that I only want certain people to be able to Run, I have
created the Macro but before it runs / executes I would like a dialog box to
pop up with a required password input, If the password is incorrect the
action is just cancelled

Thanks

 

[John]

Did a search of Groups and spotted this neat code to do what I require

Sub PasswordForAMacro()
Dim Message As String, Title As String
Dim MyValue As String
Message = "Please enter your password to access this"
Title = "Run Macro"
MyValue = InputBox(Message, Title, Default)
If MyValue <> "1234" Then
MsgBox "Invalid password - you cannot access this"
Exit Sub
Else
'type the actions / code you require to run'

ActiveSheet.Range("A1").Select
End If
End Sub

 

[John]

Is there an input mask that will enter the Password as **** instead of 1234?

I will be accessing this log on lineso a user in the remote location might
see the password I type in

 

[Chip Pearson]

You can't do that with an inputbox. You'd need a userform with a
textbox whose PasswordChar property set to "*".

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Gazza]

How would one set up the routine to provide a usertform rather than an input
box then?

Gazza

 

[John]

Thanks R.Bell, thats neat

 

[Jon]

Of course you had better password protect your code as well.

Jon

Thanks R.Bell, thats neat