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

Jon
"John" wrote in message
...
Thanks R.Bell, thats neat


"r.bell321" wrote in message
...

The original subroutine would have to read:
Sub PasswordForAMacro()
Userform1.Show
End Sub

You would need a userform (called Userform1) with a text box (called
Textbox1 with PasswordChar property set to "*") and a button (called
Button1) to submit the userform. Then put the following code in the
userform

Sub Button1_Click()
If Textbox1.text < "1234" Then
MsgBox "Invalid password - you cannot access this"
Userform1.Hide
Exit Sub
Else
'type the actions / code you require to run'
Userform1.Hide
End If


--
r.bell321Posted from - http://www.officehelp.in