Password
 

I have a button with a macro linked that Hide or Unhide other worksheets. I
like to protect that button with a password, then when the user clic the
button must have the password to go to the worksheet. Can you help me ?

Omar

Password
 

Hi Omar

Sub test()
Dim PW As String
PW = InputBox("Password:")
Select Case PW
Case ""
Case "PWD"
'your code here, instead of
MsgBox "You da man"
Case Else
MsgBox "Wrong password"
End Select
End Sub

See
http://www.dicks-blog.com/excel/2004...rd_charac.html
or
http://www.xcelfiles.com/API_09.html
if you need to mask the entries.

HTH. Best wishes Harald

"OMAR" skrev i melding
...
I have a button with a macro linked that Hide or Unhide other worksheets.
I
like to protect that button with a password, then when the user clic the
button must have the password to go to the worksheet. Can you help me ?

Omar