Der folgende Code soll euch einen neuen Menüpunkt im Benutzermenü erstellen. Diesem Menüpunkt könnt ihr mehrere Menüeinträge zuordnen.

Geht in eueren VBA Editor und schreibt in "DieseArbeitsmappe":

Option Explicit

Private Sub Workbook_Open()
    Call Menü_erstellen
End Sub

In ein Modul legt ihr den folgenden Code ab:

Option Explicit

Const Menüname = "&Registrieren"
Const Befehl1 = "&1. Passwort eingeben"
'Const Befehl2 = "&2. Was darf es sein"

Sub Menü_erstellen()
    Dim MB As Object
    Dim MeinMenü As Object
    Dim Befehl As Object
    Call Menü_Löschen
    Set MB = CommandBars.ActiveMenuBar
    Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, temporary:=True)
    MeinMenü.Caption = Menüname
    '-------------------------------------------
    'Dieser Teil wiederholt sich für jeden Befehl
    Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
    With Befehl
        .Caption = Befehl1
        .OnAction = "Vollversion"
    End With
    '-------------------------------------------
End Sub

 Sub Menü_Löschen()
    On Error Resume Next
    CommandBars.ActiveMenuBar.Controls(Menüname).Delete
 End Sub

 Sub Vollversion()
    MsgBox "Vollversion"
 End Sub