Vielen Dank im voraus
MFG
Vielen Dank im voraus
MFG
Sub auto_open()
Sheets("Tabelle1").Select
Range("A1").Select
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = True
CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
Toolbars(1).Visible = False
Toolbars(2).Visible = False
Toolbars(3).Visible = False
Toolbars(4).Visible = False
Toolbars(5).Visible = False
Toolbars(6).Visible = False
Toolbars(7).Visible = False
Toolbars(8).Visible = False
Toolbars(9).Visible = False
Toolbars(10).Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub
Sub auto_close()
Application.DisplayFullScreen = True
CommandBars("Worksheet Menu Bar").Enabled = True
Toolbars(1).Visible = True
Toolbars(2).Visible = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.Quit
End Sub
Jetzt nur noch einen Button mit dem Makro: auto_close()
bereitstellen!
Das Makro: auto_open() wird beim Start autom. ausgeführt
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen