Office: VBA Application.CommandBars("ply")

Hallo,

ich habe mit Application.CommandBars("ply").Enabled = False die Reitermenüs ausgeschaltet. Beim Beenden schalte ich die Reitermenüs mit ...Enabled = True wieder ein.
Bis Excel 2010 funktioniert das auch, aber ab Excel 2013 bleiben die Menüs ausgeschaltet.
Wie kann ich diese wieder Einschalten?

Micha

:)

 

Hallo Micha,

ab Excel 2013 musst du dieses Menü per XML steuern.

 

Hallo Micha & Nepumuk,

bei mir funktionieren diese beide Befehlen in Vba-Excel 2013 & 2016 nach wie vor wie gewünscht:
Application.CommandBars("ply").Enabled = False
Application.CommandBars("ply").Enabled = True

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

stimmt. Nur das Ausblenden einzelner Menüpunkte geht seit 2013 nur per XML, das hab ich verwechselt. Ich werde alt. :-(

 

Das eigentliche Problem ist, dass Excel sich nicht merkt, dass die Menüs wieder eingeschaltet wurden.
Ich habe in eine neue Exceldatei den Befehl zum Einschalten der Menüs beim Öffnen der Datei geschrieben, und weiter nichts. So lange diese Datei geöffnet ist, funktionieren die Menüs auch in anderen Exceldateien. Wenn ich allerdings diese Datei schliesse sind die Menüs in allen Dateien wieder weg.

Micha

 

Moin!
Die sind nicht "wieder weg", sondern "immer noch weg".
Dies hängt mit der ab xl2013 geänderten Fensterverwaltung zusammen.
Das sog. SDI muss anders angepackt werden:
https://msdn.microsoft.com/de-de/vba...rface-in-excel
Im unteren Bereich der Seite ist ein Beispiel, wie man mit einer Schleife über Application.Windows Dein Problem lösen kann.

Gruß Ralf

 

Danke für die Hilfe. Es sind aber auch nachdem Excel komplett geschlossen wurde in allen neuen Tabellen keine Registerkartenmenüs vorhanden.

Micha

 

Deshalb ja auch der Link!
Du musst unbedingt sicherstellen, dass Änderungen an der GUI rückgängig gemacht werden!
(Ansonsten machst Du Dir keine Freunde unter den Anwendern der Datei)
Wie es geht, steht doch im Link: Schleife über alle Windows der Application

Gruß Ralf

 

Es funktioniert leider noch nicht. Ich habe folgendes in eine Exceldatei geschrieben:

PHP:

         Private Sub Workbook_Open()

Dim wnd As Window
On Error Resume Next
For Each wnd In Application.Windows
wnd.Activate
Application.CommandBars("ply").Enabled = True
Next wnd
End Sub


 

Es geht um das SCHLIESSEN der Code-Mappe, nicht ums Öffnen!
Ich bin mir immer noch sicher, dass Du das alleine hinbekommst.

Gruß Ralf

 

Vielen Dank für deine Mühe.
Mein Problem ist, dass ich nur Excel 2010 habe wo der Fehler nicht auftritt.
Ich muss die Datei immer an einen Kollegen schicken zum Testen.

Es sollte doch egal sein, ob ich den Code beim Öffnen oder Schließen ausführe. Es gibt keinen weiteren Code dazu. Damit schalte ich doch alle Menüs wieder ein. Wenn man aber Excel neu startet sind die Menüs wieder weg. Excel merkt sich diese Änderung nicht.
Das Abschalten der Menüs in meiner anderen Datei habe ich schon deaktiviert.

Micha