To protect all worksheet simultaneously in a excel workbook

  • Thread starter Thread starter Vimlesh
  • Start date Start date
V

Vimlesh

If we select either few worksheets or all worksheet by holding 'shift' key,
can these all worksheet be protected/unprotected simultaneously using either
same or different passwords for each sheet.
 
Macro to protect all using same password.

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

And to unprotect all.................................

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

And to protect just selected sheets..........................

Sub Protect_Selected_Sheets()
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ws.Protect Password:="justme"
Next ws
End Sub


Gord Dibben MS Excel MVP
 
Back
Top