Macro to add and remove page protection from all sheets

[tonywatsonhelp]

Hi Everyone,

I was wondering if there was a macro that I could run to remove all page protection
and another to add it to all sheets?

they all have the same password "Superman1"

thanks

Tony

 

[Fluff]

How about

Sub Shtprotect()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Unprotect "Superman1"
   Next Ws
End Sub

and to protect the sheets change Unprotect to protect

 

[tonywatsonhelp]

Thanks fluff that's excellent
Tony

 

[Fluff]

Glad to help & thanks for the feedback