Private Sub Workbook_Open()
    'включаем защиту первого листа для пользователя, но не макроса
    Sheets("Комплектация").Protect Password:="2505", UserinterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
    'второй лист защищаем аналогично, но с возможностью пользоваться группировкой
    Worksheets("кухня расчет").EnableOutlining = True
    Worksheets("кухня расчет").Protect Password:="2505", UserinterfaceOnly:=True
    'Расшифровка ящиков
   Sheets("Расшифровка ящиков").Protect Password:="2505", UserinterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
'Распил исх.
   Sheets("Распил исх").Protect Password:="2505", UserinterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
'Сборка исх.
   Sheets("Сборка исх.").Protect Password:="2505", UserinterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
   End Sub