Select the sheets you wanted protected.
Then run this macro:
Dim wks As Worksheet
Dim arrSheets() As String
Dim intI As Integer, intJ As Integer
' Read the currently selected sheet names
' into an array
For Each wks In ActiveWindow.SelectedSheets
intI = intI + 1
ReDim Preserve arrSheets(intI)
arrSheets(intI) = wks.Name
' This part will un-select the sheets so that we can
' protect the ones we want.
For Each wks In ThisWorkbook.Worksheets
' Now protect the (previously) selected sheets
For intJ = 1 To intI
It worked for me - it should for you too!