gerade erst angefangen und dann schon ein "Projekt"? Du glaubst wohl auch das man VBA so aus dem Ärmel schüttelt? 

<= 0 und <= 1 sind ja tolle Bedingungen.  das erste ist Teilmenge vom der  2. Bedingung. Zumal Emodus kurz vor der Prüfung erst deklariert wird.  In dem Moment ist EModus = 0  Eine Prüfung auf den Wert ist zu  diesem Zeitpunkt sinnlos. 

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