CommandBar beim beenden löschen
01.09.2005 17:07:27
moe
ich habe ein Modul und ein EventClassModul.Ich habe auch schon im EventClassModul ein Teil geschrieben bei dem mit dem "BeforClose" Ereigniss einige Prozeduren ausgeführt werden.Wenn ich mit dem Befehl "Application.CommandBars("TEST").Delete" im Modul arbeite ist das kein Problem, doch wenn ich diesen Befehl mit in dass BeforeClose Ereigniss herrein nehmen will kommt immer "Unzulässiger Prozeduraufruf oder ungültiges Argument (Fehler 5)".Ich bin am verzweifel weil es ja eigentlich im Modul geht.
Ich bitte um Hilfe und danke schon mal für Antworten.
MfG
Moe
EventClass Modul:
Public WithEvents App As Application
Dim X As New EventClassModule
Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _
Cancel As Boolean)
Application.CommandBars("TEST").Delete
ThisWorkbook.Close SaveChanges:=False
End Sub
Anzeige