Hallo,
um sicher zu gehen, dass auch alle hinzugefügten Controls wieder verschwinden, habe ich den entsprechenden Befehl einfach mehrmals hingeschrieben. Durch falsches Schließen und wieder Öffnen, habe ich manchmal welche doppelt. Läßt sich das auch anders machen? Ein Befehl - alle Controls("").Delete.
Danke für eure Hilfe.
Gruß
Karsten
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Programm_abschiessen
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("").Delete
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("").Delete
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("").Delete
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("").Delete
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("").Delete
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("").Delete