Sub
Button1_Click()
Dim
bolSchalter
bolSchalter = Range(
"E40"
).Value
Application.ExecuteExcel4Macro
"Show.Toolbar("
"Ribbon"
",bolSchalter)"
Application.DisplayFormulaBar = bolSchalter
Application.DisplayFullScreen = bolSchalter
ActiveWindow.DisplayHorizontalScrollBar = bolSchalter
ActiveWindow.DisplayVerticalScrollBar = bolSchalter
ActiveWindow.DisplayWorkbookTabs = bolSchalter
ActiveWindow.DisplayHeadings = bolSchalter
Application.DisplayFormulaBar = bolSchalter
Range(
"E40"
).Value =
Not
bolSchalter
End
Sub