[sup]Dim wsSh As Worksheet
For Each wsSh In Sheets[/sup]
'ВАШ КОД
Next wsSh

Private Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = False
        .Caption = IIf(Value = True, Empty, "Наше окно")
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        Set sh0 = ActiveSheet
        For Each sh In ThisWorkbook.Sheets
            sh.Activate
            With .ActiveWindow
                .Caption = IIf(Value = True, .Parent.Name, "")
                .DisplayHeadings = Value: .DisplayGridlines = Value
                .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
                .DisplayWorkbookTabs = Value
            End With
        Next sh
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
        sh0.Activate
    End With
End Sub

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

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