Excel Menüleiste ausblenden
09.01.2022 13:48:56
Edmund
ich möchte beim Start meines Programmes die Excel Menüleiste ausblenden lassen, damit nicht jemand hier etwas verändern kann, und beim Schließen dann wieder einblenden, damit beim normalen Excelprogramm diese wieder da ist.
Habe mir den Code aus dem Archiv kopiert, klappt aber nicht so richtig.
Warscheinlich muss ich den Namen der Menüleiste ändern. Vielleicht kann mir ja einer kurz helfen.
Schon jetzt einmal vielen Dank
lg Edmund
Sub AllesAusEinBlenden()
Dim oBar As CommandBar
With CommandBars("Worksheet Menu Bar")
If .Enabled Then
.Enabled = False
Application.DisplayFullScreen = True
For Each oBar In Application.CommandBars
If oBar.Name "Worksheet Menu Bar" Then
If oBar.Visible Then
oBar.Visible = False
End If
End If
Next oBar
ActiveWorkbook.Protect Windows:=True
Else
ActiveWorkbook.Unprotect
.Enabled = True
Application.DisplayFullScreen = False
End If
End With
End Sub