In its simplest form
Private Sub CommandButton4_Click()
If InputBox("Password please:") <> "Top Secret" Then Exit Sub
Overduepdp
ProtectSheet
End Sub
HTH. Best wishes Harald
"pianoman" <
[email protected]> skrev i
melding news:
[email protected]...
>
> Hi All,
> I'm looking to put in some sort of protection that will require a
> password to run a particluar sub in an excel file. The sub will be
> attached to a button...
>
> I had thought that I should pop up an input box (somehow!) and then
> compare the input from the user to a defined constant in the code... is
> this the best way, and if so, how do I write the input box code?
>
> Here's the button code as it stands... it's nothing special!
>
> Private Sub CommandButton4_Click()
> Overduepdp
> ProtectSheet
> End Sub
>
> Thanks all.
>
> Gareth
>
>
> --
> pianoman
> ------------------------------------------------------------------------
> pianoman's Profile:
> http://www.excelforum.com/member.php...o&userid=33712
> View this thread: http://www.excelforum.com/showthread...hreadid=544564
>
Bookmarks