With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With

Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = False
        .Caption = IIf(Value = True, Empty, "")
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        .CellDragAndDrop = False
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        With .ActiveWindow
            .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value    'Скрыть полосы прокрутки
            .DisplayWorkbookTabs = Value                    'Скрыть ярлыки листов
        End With
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
    End With
End Sub

Sub УбратьВсё()
    ChangeInterface False
End Sub

Sub ВосстановитьИнтерфейс()
    ChangeInterface True
End Sub

Sub Поменять()
  ChangeInterface Not Application.DisplayStatusBar
End Sub

Private Sub Workbook_Open() 'Открытие книги
    УбратьВсё
End Sub