Finding the worksheet's protection status and setting worksheet protection status back to initial status

[stubarny]

Hello,

Please could you tell me how to find the current worksheet protection status (protected/unprotected), carry out my code and then reset the worksheet's status back to what it was before the macro started?

I think Worksheet("Name").Protect/Unprotect is a function, not a property?

Thanks for your help,

Stu

 

[VoG]

Try like this

Dim ptc As Boolean
ptc = Sheets("sheet1").ProtectContents
If ptc Then Sheets("Sheet1").Unprotect
'
'more code
'
If ptc Then Sheets("Sheet1").Protect

 

[stubarny]

Thanks VoG, out of curiosity is it correct to say that the property "Sheets("sheet1").ProtectContents" can't be set directly?

Stu

 

[Richard Schollar]

That's a Read Only property. You need to use the Protect method if you want to set Protection.

 

[stubarny]

Thanks Richard