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...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


f_amshan wrote:
>
> 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.

--

Dave Peterson