Create Password Protection with a macro

[King_Crud]

Hi,

I have a macro written, and I when it starts I would like it to unprotect the sheet, then at the end protect the sheet with a password. Currently I have this to unprotect:

ActiveSheet.Unprotect

and to protect the sheet at the end I have

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

But how do I create a macro to protect the sheet using a password?

Thanks
KC

[romperstomper]

It's just:

ActiveSheet.Protect Password:="some password", DrawingObjects:=True, Contents:=True, Scenarios:=True

Note: I altered your QUOTE tags to CODE tags.

[King_Crud]

Thanks very much!