Kann jemand helfen?
Wie kann man dies erweitern um auch die Bearbeitungsleiste auszublenden?
Sub Einblenden()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next
End Sub
Sub Ausblenden()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next
End Sub
Vielen Dank
Torge