【VBA】添加单元格右键自定义命令

Sub addcellmenu()   '添加单元格右键自定义命令
    Dim cmenu As CommandBar
    Dim ccom As CommandBarControl

    Set cmenu = Application.CommandBars("cell")
'    cmenu.Reset    '重置自定义命令，避免重复添加
    Set ccom = cmenu.Controls.Add
    ccom.Caption = "VBA"
    ccom.OnAction = "t"
End Sub
Sub addcellmenus()  '添加单元格右键自定义命令集合
    Dim cmenu As CommandBar
    Dim ccom As CommandBarControl
    
    Set cmenu = Application.CommandBars("cell")
'    cmenu.Reset '重置自定义命令，避免重复添加
    Set ccom = cmenu.Controls.Add(msoControlPopup, , , 1)
    ccom.Caption = "VBA"
    With ccom.Controls.Add(msoControlButton)
        .Caption = "宏安全"
        .OnAction = "t"
    End With
    With ccom.Controls.Add(msoControlButton)
        .Caption = "消息弹窗"
        .OnAction = "m"
    End With
End Sub
Sub t() '宏安全
    Application.CommandBars.ExecuteMso ("MacroSecurity")
End Sub
Sub m()
    MsgBox 1
End Sub