Ich brauche ein "leeres Anwendungsfenster", d. h. ohne Menüleiste, Titelleiste usw aber auch ohne Gitternetzlinien, Tabellenregister, Bildlaufleisten und Zellen- & Spaltenüberschriften.
Hier im Forum hab ich bezüglich der Menü- und Symbolleisten eine klasse Lösung gefunden (von Georg_Zi):
' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
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?