My macro will not run b/c the sheet is protected

[sneel3]

how can I have the macro turn off the protection at the beginning and turn it back on at the end?

 

[Pyromantic]

It's as simple as:

ActiveSheet.Unprotect

 

[sneel3]

what about passwords

 

[Pyromantic]

If it's passworded you would need to do this to protect it:

Sheets("Sheet1").Protect Password:="password"

And this to unprotect

Sheets("Sheet1").Unprotect Password:="password"

 

[Joe Was]

You know, just as a tip for the future;

Record a macro, doing all the steps you need to do someting, like un-Protect and protect. In many cases the recorded code will show you a way to do something that may help or point you in the right direction.

In this case, due to the password, all the code will be recorded except the password part!

 

[stuartford]

just out of interest
if i rune the following code
ActiveSheet.Protect password = 111

IE same as your minus the ":" and "", excel still pasword protects the sheet but not with 111 as the password

anyideas what it is using?

Stuart

 

[Joe Was]

Even if the password is Numbers they must be entered in as Text so use:

"111"

not

111

 

[stuartford]

ok thanks for tat but even if i changed the password to
ActiveSheet.Protect password = "stu"

then
when trying to manually unprotect the sheet

stu isnt the password

any ideas

this isnt a problem im just interested in whats happening

Stu

 

[sneel3]

I have the following code in the macro. It was written by the Macro Wizard, but the macro errors out when it gets to this point. Why is it erroring out?

ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1", Range:=Range("L11:P65536")
ActiveSheet.Protection.AllowEditRanges.Add Title:="Range2", Range:=Range("U11:Z65536")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:= _
True, AllowFiltering:=True

 

[Joe Was]

You have the wrong syntax!

The ":" is not optional!

Use this form:

ActiveSheet.Protect Password:="password"