Application.CommandBars("Worksheet Menu Bar").Visible = False
bewirkte aber nur die Laufzeitfehlermeldung: "Die Methode 'Visible' für das
Objekt 'CommandBar' ist fehlgeschlagen".
Was muß ich tun ?
ciao
stefan
Die Menüleiste kannst Du mit ...Enabled = False veschwinden lassen.
Das Visible = T/F funktioniert nur, wenn Du eine neue Menubar erstellst.
Beispiel:
Sub test()
Dim cb As CommandBar
With Application
Set cb = .CommandBars.Add("Testtt", , True, True)
'Hier wird die neue eingeblendet und gleichzeitig
'Die "Worksheet Menu Bar" ausgeblendet.
cb.Visible = True
'hier funktionieren beide varianten (Entweder die
'eine, oder die Andere!!) Nur, bei Visible muß immer
'eine Menubar zu sehen sein. Sonst benutze Enabled!
cb.Visible = False
.CommandBars("Worksheet Menu Bar").Visible = True
.CommandBars("Testtt").Delete
End With
End Sub
Bye
Ulli.
Stefan Onken schrieb:
--
Microsoft MVP für Excel