Habe mit Menuleisten experimentiert.
Nun Sind sie weg und lassen sich nicht mehr einrichten, auch nach dem ich Excel de- und neu installiert habe.
Mit dem untenstehnden Code habe ich die Veränderung vorgenommen.
Habe versucht False gegen True zu ersetzen hilft auch nichts.
Kann mir jemand helfen?
mfg
Ernst Dunkel
Private Sub workbook_open()
Dim myCollection As New Collection
Dim cb As CommandBar
On Error Resume Next
For Each cb In Application.CommandBars
If cb.Visible Then
myCollection.Add cb
cb.Enabled = True 'False
cb.Visible = True 'False
End If
Next cb
End Sub