Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        If wsSh.Name = "Прочее" Then GoTo b
        If wsSh.Name = "Цель кредита" Then GoTo b
        wsSh.EnableOutlining = True
        If wsSh.Name = "Консолидация" Then GoTo a
        wsSh.Protect Password:="0000", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserinterfaceOnly:=True, AllowFormattingRows:=True, AllowFiltering:=True
        GoTo b
a:
        wsSh.Protect Password:="0000", DrawingObjects:=False, Contents:=True, Scenarios:=True, UserinterfaceOnly:=True, AllowFormattingRows:=True, AllowAutoFiltering:=True
b:
    Next wsSh
    Application.ScreenUpdating = True
    Application.CellDragAndDrop = False
End Sub