Need to protect with Password

[f_amshan]

Hi all,

I have command button which macro has been applied to it. i would like to
protect this command button with passowrd. so, when any one click on this
command button,it should ask for a password.

Regards,
Faisal M.

 

[broro183]

Hi Faisal,

Try adding the following to the code for your command button:

Private Sub CommandButton1_Click()
Dim InitialFilterValue As String
InitialFilterValue = InputBox("Please enter the password.", "PASSWORD
REQUIRED")
'To end sub if "cancel" was pressed or passowrd is wrong, sourced from
_
http://www.excelforum.com/showthread.php?t=466059&highlight=vbcancel+input
& http://vb.mvps.org/tips/varptr.asp
If StrPtr(InitialFilterValue) = 0 Then
Exit Sub
Else
If InitialFilterValue = "secret" Then
Else
Exit Sub
End If
End If
'enter your code here
End Sub

This is just a starting point as there are ways of making it loop until
the correct password is entered or only allowing 3 tries etc.

NB: To prevent anyone opening the VB Editor to identify the password as
"secret" you will need to lock the VB Project. To do this right click on
a module/sheet code in the VBE & select VBA Project Properties - Lock
for Viewing.

hth
Rob Brockett
NZ
Always learning & the best way to learn is to experience...

 

[Dave Peterson]

You could add something like this to the top of the routine.



dim myPWD as string
dim resp as string

myPWD = "topSeCreT"
resp = inputbox(Prompt:="What's the password, Kenny?")

if resp <> mypwd then
msgbox "Not authorized to use this button!
exit sub
end if