Hi,

try this

ActiveSheet.Unprotect Password:="mypassword"
Application.EnableEvents = False

'Do lots of things

Application.EnableEvents = True
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="mypassword"


Mike

"Dana M" wrote:

Using info obtained from other postings in this chat, I am attempting to add
a password to my sheet protection. I have macros that add and delete rows in
the worksheet. I have 'Unprotect' code at the beginning of the macros and
'Protect" at the end, which I modified slightly in this way:

ActiveSheet.Unprotect Password:="mypassword"
Application.EnableEvents = False

Application.EnableEvents = True
ActiveSheet.Protect Password:="mypassword" DrawingObjects:=True,
Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True

I haven't even gotten to the point of trying to step through the macro, but
the 'unprotect' statement (is that what you call that bit of code,
statement?)
remained in black text, but the 'protect' statement immediately turned red
with an error message, "Compile error - expected end of statement" right
around the DrawingObjects:=True part.

This all worked correctly before adding the password, and before adding the
Password:="mypassword" to the code.