Protecting Multiple Worksheets

[Dave]

Is there a way to protect more than one worksheet at a
time?

Dave

 

[Jeff]

I think you need only protect the worksheets you want
protected: select menu\tools\protection\protect worksheet
for each worksheet.

 

[J.E. McGimpsey]

This macro will protect all the sheets that are selected:

Public Sub ProtectSelectedSheets
Const PWORD As String = "drowssap"
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
wkSht.Protect Password:=PWORD
Next wkSht
End Sub

or, to protect a designated set of sheets:

Public Sub ProtectSelectedSheets()
Const PWORD As String = "drowssap"
Dim wkSht As Worksheet
For Each wkSht In Worksheets( _
Array("Sheet1", "Sheet2", "Sheet3"))
wkSht.Protect Password:=PWORD
Next wkSht
End Sub