Turn off Protection

[numberpro]

Hello,

Say that I have 5 protected worksheets. There are no passwords. It is a bit of a hassle to unprotect each. Is there a way to unprotect them as a group? something like control-click all and then select unprotect sheet?

Thanks.

 

[shajueasow]

Hi,
Just look at the following code by Tom Urtis given in thread
http://www.mrexcel.com/board2/viewtopic.php?t=179709&highlight=unprotect+sheets

Sub UnprotectAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect ("YourPasword")
Next ws
End Sub

Sub ProtectAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect ("YourPasword")
Next ws
End Sub