Public Sub ProtectGroupedSheets()
'========================================================================
' THIS PROTECTS GROUPED SHEETS
'========================================================================
'Const csPASSWD As String = "password"
Dim MySheets As Sheets
Dim actSheet As Worksheet
Dim wkSht As Worksheet
Set actSheet = ActiveSheet
Set MySheets = ActiveWindow.SelectedSheets
actSheet.Select
For Each wkSht In MySheets
wkSht.Protect 'Password:=csPASSWD ' Can also use Unprotect
Next wkSht
actSheet.Select
MySheets.Select False
End Sub