VBA "IF" True/False test for ActiveSheet Protection

[Dennis]

Using XL 2003

First, After successfully running a macro, my WS ends up being protected.

I cannot understand why that happens as, in this particular Sub Routine, there is no
command applying protection.

Yes, I can add to my current macro:

ActiveSheet.Unprotect

and that works! But why does it become protected in the first place?


Because of the above, I would like to "test" for protection status.

If WS protection is True, then I want to apply:
Active.Sheet.Protect UserInterfaceOnly:=True

so that the Macro will complete
I tried:
If ActiveSheet.Protect = True
but it does not seem to do what I want.


Then I wish to leave the WS protection exactly as it was before the macro was run.

TIA Dennis

 

[Frank Kabel]

Hi Dennis
Protect is a method and not a property. So your If statement protect
the worksheet. Try the following instead

If ActiveSheet.ProtectContents = True
.....

 

[Dennis]

Hello Frank!

I checked the WS protection status as "none" before the macro.

What would cause a WS to become protected if it were not before a macro and if there
were no statement in the macro applying protection?

Thanks to the code info!

 

[Frank Kabel]

Hi Dennis
the statement
If ActiveSheet.Protect = True then...

in your current code will NOT check the current protection status of
your worksheet BUT will protect it!

 

[Dennis]

Oh well, I screwed up.

In my macro, I called another macro that did have a protection command.

It is amazing how easy it is to keep walking the same blind path.

Thanks Frank!