Option Explicit

Private Sub Workbook_Open()
    Call Menüeintrag_hinzu
End Sub

Hier wird beim Starten des Tabellenblattes das Makro mit dem Namen Menüeintrag_hinzu gestartet.

In ein Modul legt Ihr dann diesen Code:

Option Explicit

Const Menuepunkt = "Freischalten"

Sub Menüeintrag_hinzu()
    Dim cb As CommandBar
    Dim cbp As CommandBarPopup
    Dim cbb As CommandBarButton
    Call menüeintrag_weg
    Set cb = Application.CommandBars(1)
    Set cbp = cb.Controls("?")
    Set cbb = cbp.Controls.Add _
    (Type:=msoControlButton, Temporary:=True)
    With cbb
        .Caption = Menuepunkt
        .OnAction = "Frei"
        .FaceId = 277
    End With
End Sub

Sub menüeintrag_weg()
    On Error Resume Next
    Application.CommandBars(1).Controls("?"). _
    Controls(Menuepunkt).Delete
End Sub

Sub Frei()
    MsgBox "Hier wird der Freischaltcode eingegeben!"
End Sub

Wenn ihr nun euere Tabelle abspeichert und neu aufruft habt ihr einen neuen Menüpunkt. Dieser lautet Freischalten. Mit einem Klick auf diesen wird das Makro Frei aufgerufen, welches euch eine Msgbox aufruft.