Heb dit voorbeeld eens gedownload, misschien kun je er iets mee?
Option Explicit
Public cControl As CommandBarControl
Public Const sMenuCaption As String = "&Mijn Menu"
Sub MakeMenu()
On Error Resume Next
RemoveMenu 'Prevent duplicate menu's
Set cControl = Application.CommandBars(1).FindControl
(ID:=30007).Controls.Add(temporary:=True)
cControl.Caption = sMenuCaption
cControl.OnAction = "ChangeSettingsAutosafeVBE"
On Error GoTo 0
End Sub
Sub RemoveMenu()
On Error Resume Next
If cControl Is Nothing Then
Application.CommandBars(1).FindControl
(ID:=30007).Controls(sMenuCaption).Delete
Else
cControl.Delete
Set cControl = Nothing
End If
On Error GoTo 0
End Sub
In de ThisWorkbook module staat bij mij dan:
Private Sub Workbook_Open()
RemoveMenu
MakeMenu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemoveMenu
End Sub
OF
Instellingen herstellen
Geknoeid in Excel? Uw werkbalken verdwenen? De snelmenu van uw rechtermuisknop heeft te veel menuonderdelen gekregen? Dit is de oplossing!
http://users.skynet.be/onderland/Excel.htm
zie bij Downloads
Of
Rechtsklikken op uw werkbalken, en kiezen voor "AANPASSEN".
Druk op "Beginwaarden"
OPPASSEN : Alle eigen aanpassingen zul je verliezen.
Pierre
