Unprotect multiple sheets at once.

[Naseralabbas]

How to unprotect multiple sheets. When selecting multiple protected
sheets in excell 2002, the " unprotect sheet " is not active. Is there
a way to do it.

 

[Don Guillett]

One at a time or use a macro

for each ws in worksheets
ws. unprotect
next ws

 

[Gord Dibben]

Only through VBA.

Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Protect password:="justme"
Next n
Application.ScreenUpdating = True
End Sub

Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Unprotect password:="justme"
Next n
Application.ScreenUpdating = True
End Sub

Gord Dibben Excel MVP