Protect Sheet With Password! Progmattically

[MrsTFB]

Hey guys,
I have a problem. I need to set protection on a worksheet. I can do this through the VBA, however, I want to use the password option so that someone doesn't simply remove my protection. I can't find that information anywhere. It doesn't show that step in the recording of the protection if you try recording the protection.

Anyone got any ideas on this???

Here's the code I'm using:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A2&quot.Select

Thanks in advance,
mrsTFB in Tennessee

 

[xlbo]

Hi Mrs TFB
Try this
ActiveSheet.Protect password:="ThisIsMyPassword"

Not too helpful tho as it can just be read and used
Better way is to use:

mPass = Inputbox("Enter Password&quot
Activesheet.protect password:= mPass

That way, no-one but you will know the password

Obviously, this will only need to be run if the sheet has been unprotected again

HTH
~Geoff~