Laufzeitfehler 5 wenn andere Mappen mit Makro

Hallo Wissende,
ich habe ein Problem, bei dem ich absolut auf der stelle trete. Vorgeschichte:
Ich habe ein Tool für eine Kollegin geschrieben, die mit Excel extrem unerfahren ist und sobald etwas nicht selbsterklärend ist, kapituliert sie. Ich habe versucht, jeden User-error auszuschließen und die Normalen Standard-Leisten ausgeblendet und durch eigenen ersetzt. Das funktioniert auch alles perfekt!!!
Nun das Problem:
Meistens funktioniert der Wechsle zwischen unterschiedlichen Arbeitsmappen über Workbook_Activate und Workbook_Deactivate einwandfrei. Wenn bestimmt Arbeitsmappen mit Makros aus einem Explorer oder heraus öffnet, kommt die Meldung.
Laufzeitfehler 5: ungültiger Prozedurablauf oder ungültiges Argument
Geht man auf Debuggen springt er zu folgender Zeile_


Sub edit_menubar()
' ERSTELLEN DER MENÜLEISTE
Dim objBar As CommandBar
Set objBar = Application.CommandBars.Add("NewToolbar", msoBarTop, True, False)

Ich habe eine Sparversion des Tools hochgeladen:
https://www.herber.de/bbs/user/57468.xls
ACHTUNG:
Drückt man statt debuggen auf beenden wars das mit den Leisten und Excel.
ALSO: ACHTUNG BEIM TESTEN!!!! IST MIR NOCH NICHT PASSIERT, ABER AN EINEM RECHNER MUSSTE EXCEL SCHON NEU INSTALLIERT WERDEN (ist mir von einer verärgerten IT- Abteilung berichtet worden)
Sollte es passieren hilft das Abspielen folgender Makros in Modul1 im VBA Modus (aufrufbar über Alt + F11):
delete_menubar
edit_menubar
edit_usermenu
dann funktioniert das Tool wieder normal, die andere
Hat jemand eine Idee oder einen Lösungsansatz?
NOCHMAL: ACHTUNG!!!! EXCEL KANN BESCHÄDIGT WERDEN WENN NICHT DEBUGGEN BETÄTIGT WIRD!!!! NIX FÜR VBA-LAIEN!!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Reinhard,
ich werde deinen Vorschlag mal ausprobieren, werde es heute aber nicht schaffen, da ich dies Tool nur nebenbei betreue wenn ich mal Leerlauf habe.
Zu


der Fehler kommt weil zu diesem Zeitpunkt schon eine Commandbar mit dem Namen "NewToolbar" existiert

Wenn ich dich richtig verstanden habe, bin ich mir aber nicht sicher, ob dies wirklich die Ursache ist.
Das beschriebenen passiert, wenn mein Tool offen ist und aus dem Explorer heraus ein weitere Arbeitsmappe geöffnet wird. In diesen Arbeitsmappen sind aber keine Tollbars verwendet. Gibt´s da etwa einfach nur einen Logikfehfehler bei der Aktivierung und Deaktivierung meiner Arbeitsmappe?
Aber schon einmal danke für deinen Tip!
Chris

Sub edit_menubar() ' ERSTELLEN DER MENÜLEISTE Dim objBar As CommandBar On Error Resume Next Application.CommandBars("NewToolbar").Delete On Error GoTo 0 Set objBar = Application.CommandBars.Add("NewToolbar", msoBarTop, True, False) With objBar .Visible = True .Protection = msoBarNoChangeDock + msoBarNoChangeVisible + msoBarNoCustomize + _ msoBarNoMove + msoBarNoResize End With End Sub

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 5 wenn andere Mappen mit Makro

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread