Как установить пароль сразу на все листы?

Пытаюсь ставить на пороль все листы сразу.
Помогите сделать менее объемным макрос.
В лист INFO можно вносить только данные, у остальных можно форматировать строки
столбцы и ячейки

Sub protect()
Sheets("INFO").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("CREW").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("EFFECT").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("STORE").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("DECK").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End Sub

0

Sub Protect()
Dim objSheet As Worksheet
For Each objSheet In ThisWorkbook.Worksheets
Select Case objSheet.Name

Case "INFO"
objSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Case "CREW", "EFFECT", "STORE", "DECK"
objSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True

End Select
Next
Set objSheet = Nothing
End Sub

Большое спасибо!

0