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

On Mon, 28 Aug 2006 13:58:01 -0700, ExcelPC
wrote:

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.