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 MS Excel MVP

On Fri, 12 Mar 2010 12:11:01 -0800, Curtis wrote:


Thanks

I have another question if I may. I have 30 sheets in a particular workbook
and each is password protected with certain cells within each sheet unlocked
for user inputting. Is ther a way to lock/ unlock multiple sheets at a time
(same password)

Thanks
ce