Unprotect all worksheets vba doesn't work

[Apple08]

Hi All

I have a workbook with a number of worksheets which might have been protected or not protected by users. I have created the macro below to unprotect all worksheets, however I got the error message:

Run-time error '1004':
Mthod 'Unprotect' of object'_Worksheet' failed

Sub Unprotect()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Unprotect
    Next ws

End Sub

Please could anyone help? Many thanks.

 

[6StringJazzer]

Are any of the worksheets protected with passwords? That will give you the error.

 

[Apple08]

Thanks Jeff, it makes sense to me now. Please am I able to unprotect specific worksheets from the workbook? I require to unprotect 'Sheet 1" to "Sheet 5" as they are only protected without a password.

 

[6StringJazzer]

Update the names of the sheets I used to your actual sheet names.

Sub Unprotect()

   Dim S As Variant

   For Each S In Array("Sheet 1", "Sheet 2", "Sheet 3", "Sheet 4", "Sheet 5")
      Worksheets(S).Unprotect
   Next S

End Sub

 

[Apple08]

Many thanks Jeff! I really appreciated your help. Thank you again.