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