alles muss weg..!

Private Sub Workbook_Activate()
Leisten False
End Sub

Private Sub Workbook_Deactivate()
Leisten True
End Sub

Private Sub Workbook_Open()
Stand = Application.DisplayFormulaBar
End Sub

' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
' von Melanie Breden

Private Sub CommandButton1_Click()
Application.DisplayFormulaBar = Stand
ThisWorkbook.Close
End Sub

' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public symbol As CommandBar
Public Stand As Boolean
' von Melanie Breden
Sub Leisten(AnAus As Boolean)
Application.ScreenUpdating = False
For Each symbol In Application.CommandBars
symbol.Enabled = AnAus
Next symbol
Application.ScreenUpdating = True
If AnAus = False Then
Application.DisplayFormulaBar = False
Else
Application.DisplayFormulaBar = Stand
End If
End Sub

Private Sub Einblenden()
' Notmakro zum einblenden der Symboleisten
Leisten True
End Sub

Für das Ausblenden vom Spaltenüberschriften, Gitternetzlinien usw. hab ich ein Makro aufgezeichnet:
Sub Rest_ausblenden()
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub

Leider beziehen sich diese Einstellungen nur auf das Tabellenblatt in dem ich dieses Makro starte.
Frage: Wie kann ich das Makro in den VBA-Code vom Georg_Zi einbauen bzw. wie bezieht sich auch diese Einstellung auf die gesamte Datei?