(Mr. Magoo)

Een eigen muismenu gebruiken in je eigen werkboeken;

Option Explicit

'*************************************  Start MuisMenu  **************************************
'Zet onderstaande code in een Module.

Public Sub MuisMenuToevoegen()
'maak menu klaar voor
  Call MuisMenuVerwijderen

  With Application.CommandBars("cell").Controls
    'Scheidingslijn -> laat als eerste staan
    With .Add(Type:=msoControlButton, Before:=1, temporary:=True)
      .Visible = False
      .BeginGroup = True
    End With

    'Herhaal onderstaande code tussen de sterren voor een volgend menuitem
    'Vergeet niet CAPTION en ONACTION goed in te vullen
    '****************************************************************************************
    'Voeg een nieuw menu item toe
    With .Add(Type:=msoControlButton, Before:=1, temporary:=True)
      .Caption = "Menuitem tekst 1"  'tekst die je ziet als je menu opend met rechtermuis
      .OnAction = "Subroutine1"  'De routine welke moet uitgevoerd worden als er op wordt geklikt
    End With                     'Routine aanroep moet wel tussen aanhalingstekens staan
    '****************************************************************************************
    'Dus hier volgende menu item
  End With
End Sub


Public Sub MuisMenuVerwijderen()
  CommandBars("Cell").Reset
  CommandBars("Cell").Enabled = True
End Sub

'*************************************  Einde MuisMenu  **************************************



'*************************  Hulproutines voor muismenu in gehele werkboek  *******************
'Zet onderstaande routines in ThisWorkbook als je in het gehele werkboek het muismenu wilt gebruiken

'Private Sub Workbook_Open()
'  Call MenuToevoegen
'End Sub
'
'Private Sub Workbook_BeforeClose(Cancel As Boolean)
'  Call MenuVerwijderen
'End Sub
'********************  Einde hulproutines voor muismenu in gehele werkboek  *******************




'************************  Hulproutines voor muismenu op tabbladniveau  ***********************
'Wil je een muismenu op tabbladniveau gebruik dan onderstaande Subroutines in ThisWorkbook
Private Sub Workbook_Open()
  Call MuismenuControleSheetNiveau(ActiveSheet.Name)
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Call MenuVerwijderen
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Call MuismenuControleSheetNiveau(Sh.Name)
End Sub

Sub MuismenuControleSheetNiveau(Bladnaam As String)
  Call MuisMenuVerwijderen

  'Controleer op bladnaam wel of niet een MuisMenu
  Select Case Bladnaam
  Case "Blad1", "Blad2"
    Call MuisMenuToevoegen
    'enz enz mogelijkheden te over
  Case "Andere Tabblad"  'Enz enz
    'Je kan zelfs voor ieder tabblad een eigen muismenu maken
    'Je hoeft dan alleen een andere subroutine MuisMenuToevoegen erbij maken (wel anders noemen)
    'voor het verwijderen van het MuisMenu heb je alleen maar de subroutine MuisMenuVerwijderen nodig
    'Maak niet uit of je er meerdere hebt gemaakt
  Case Else
    'is ook nog een mogelijkheid
  End Select
End Sub
'*********************  Einde hulproutines voor muismenu op tabbladniveau  ********************



'**********************************  Routine voor muismenu ************************************
Sub Subroutine1()
'Voorbeeld subroutine voor muismenu
  MsgBox "Je hebt nu op Menuitem tekst 1 geklikt", vbOKOnly, "Informatie MuisMenu"
End Sub
'*******************************  Einde routine voor muismenu *********************************