Protecting Worksheets

[martins]

If you have multiple worksheets in a workbook is there a way of protecting all sheets in one go or do you have to protect all individually?

[JR@SGC]

Hi

Not as far as i know, but if you have macros enabled you can use two macros:

Sub Macro1()
Sheets("Sheet1").Select
ActiveSheet.Protect "Music"
Sheets("Sheet2").Select
ActiveSheet.Protect "Music"
Sheets("Sheet3").Select
ActiveSheet.Protect "Music"
Sheets("Sheet1").Select
End Sub

Sub macro2()
Sheets("Sheet1").Select
ActiveSheet.Unprotect "Music"
Sheets("Sheet2").Select
ActiveSheet.Unprotect "Music"
Sheets("Sheet3").Select
ActiveSheet.Unprotect "Music"
Sheets("Sheet1").Select
End Sub

Hope it helps

[funkymonkUK]

more simplfied and more generic use the following

Sub wsprotect()
For Each ws In Worksheets
ws.Protect "test"
Next
End Sub

Sub wsunprotect()
For Each ws In Worksheets
ws.Unprotect "test"
Next
End Sub


replace the part "test" with whatever password you want. this will protect and unprotect each sheet in the workbook no matter what their name is.