How do I unprotect multiple sheets simultaneously?

[Guest]

I have a worksheet with 12 tabs. The sheets in each tab are protected by the
same password.

I have tried selecting all the tabs (similar to making changes on all sheets
in tabs) and tried to unprotect all the sheets simultaneously - be have been
unsuccessful.

I have to do this for many files, hence a quicker/more efficient way is
desireable.

 

[Guest]

Write a macro that will repeat the unprotect. Assign the macro to a key so
all you need do is press a key for each sheet.

 

[Guest]

Run a little macro such as:

Sub UnProtectAll()
Dim mySheet As Worksheet
For Each mySheet In Worksheets
mySheet.Unprotect
Next mySheet
End Sub

 

[Gord Dibben]

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


Gord Dibben MS Excel MVP