Protecting Multiple Worksheets

J

Jeff

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

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
 
Top