Hallo Ralf,

Danke für deine Hilfe.

Mit ist bewusst, dass man VBA nicht einfach aus dem Ärmel schütteln kann. Mit "Projekt" meinte ich nur diesen Button :)

Mein Code war ein bisschen sinnlos verpfuscht, da ich schon einiges probiert hatte mit if else, else if und if if.

deine Lösung habe ich jetzt abgeändert und es sieht wie folgt aus.

Sub btn_Entwicklermodus()
 
   Dim EModus
   EModus = Range("A49").Value
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", EModus)"
    Application.DisplayFormulaBar = EModus
    Application.DisplayFullScreen = EModus
    ActiveWindow.DisplayHorizontalScrollBar = Not EModus
    ActiveWindow.DisplayVerticalScrollBar = Not EModus
    ActiveWindow.DisplayWorkbookTabs = Not EModus
    ActiveWindow.DisplayHeadings = Not EModus
    
    Range("A49").Value = Not EModus
        
    If EModus = 0 Then
    Range("A45").Value = "Entwicklermodus"
    Range("A45").Font.ColorIndex = 3
    Else
    Range("A45").Value = "Benutzermodus"
    Range("A45").Font.ColorIndex = 0

    End If

    
End Sub

Danke nochmals für die Unterstützung.