Protecting worksheets

[sbyers2]

I have a workbook with multiple worksheets....all of which are protected. Is there a way to unprotect all the sheets at once? or must I go to each individual sheet and manually unprotect it.

 

[Richard Schollar]

If they have separate, distinct passwords then yes, manually through the lot of them. If they have no passwords (or a password that is the same for each sheet) then a variation along the following script will do it:

Sub Test()
For Each ws in ThisWorkbook.Worksheets
   ws.Unprotect
Next ws
End Sub

Best regards

Richard

 

[tazrad]

Is there a way to unprotect all sheets with a passwork?

 

[Richard Schollar]

Sure - if it's the same password for all sheets it's very easy:

Sub Test()
On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
   ws.Unprotect "YourPasswordHere"
Next ws
End Sub

and insert your password as indicated.

Richard