Unprotect and protect sheets all at once

[Eddie G.]

i have a workbook with 50 sheets that I need to unprotect or protect all at once (no passwords involved), instead of this nonsense: sheet1.unprotect 50 times. can someone help?? thanks.

 

[dsnbld]

Private Sub Protect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect 'change Protect to Unprotect to Unprotect all Worksheets
Next ws
End Sub

 

[dawsona]

Try the following:

Sub unlockall()

For i = 1 To Worksheets.Count
Worksheets(i).Activate
ActiveSheet.Unprotect

Next i

End Sub


If you do want to go down the password route:

Sub unlockall()

For i = 1 To Worksheets.Count

Worksheets(i).Activate
ActiveSheet.Unprotect "My Password"

Next i

End Sub

 

[dawsona]

Try the following:

Sub unlockall()

For i = 1 To Worksheets.Count
Worksheets(i).Activate
ActiveSheet.Unprotect

Next i

End Sub


If you do want to go down the password route:

Sub unlockall()

For i = 1 To Worksheets.Count

Worksheets(i).Activate
ActiveSheet.Unprotect "My Password"

Next i

End Sub