Excel右键菜单CommandBar定制：仅保留添加评论功能及排错

问题背景 #

需要实现Excel右键点击单元格时，隐藏Cell命令栏的大部分选项，仅保留“添加评论”功能。最初通过控件名称删除的方式偶尔触发调试错误，尤其是针对Insert和Delete...控件的操作。改用控件ID操作更可靠，但需要掌握正确的语法。

原代码问题 #

原代码通过控件名称删除选项，但部分控件名称会因Excel版本、语言设置变化导致查找失败，触发错误，例如：

Application.CommandBars("Cell").Controls("Insert").Delete
Application.CommandBars("Cell").Controls("Delete...").Delete

正确的控件ID操作方式 #

通过ID访问控件不能直接使用Controls(ID = "21")的写法，推荐两种可靠实现方式：

方式1：单个控件精准定位删除 #

使用FindControl方法通过ID定位控件，添加判断避免控件不存在时报错：

Dim targetCtrl As CommandBarControl
' 查找ID为21的剪切控件并删除
Set targetCtrl = Application.CommandBars("Cell").FindControl(ID:=21)
If Not targetCtrl Is Nothing Then targetCtrl.Delete

方式2：批量删除指定ID控件 #

将需要删除的控件ID存入数组，循环遍历删除，同时排除“添加评论”对应的ID（2031）：

Private Sub RightClick()
    Dim deleteIDs As Variant
    Dim i As Integer
    Dim targetCtrl As CommandBarControl
    
    ' 重置右键菜单至默认状态，确保操作一致性
    Application.CommandBars("Cell").Reset
    Application.CommandBars("Cell").Enabled = True
    
    ' 需要删除的控件ID列表（排除2031：添加评论）
    deleteIDs = Array(21, 19, 22, 21437, 3624, 25536, 32714, 32713, 295, 292, _
                     3125, 33409, 24508, 31623, 31402, 31435, 34003, 855, _
                     1966, 1614, 13380, 1576, 1577, 1015, 3626, 34405, _
                     11299, 31595, 178, 34125, 22577, 34042)
    
    ' 循环删除每个目标控件
    For i = LBound(deleteIDs) To UBound(deleteIDs)
        Set targetCtrl = Application.CommandBars("Cell").FindControl(ID:=deleteIDs(i))
        If Not targetCtrl Is Nothing Then
            targetCtrl.Delete
        End If
    Next i
    
    Application.ShowMenuFloaties = True
    Application.CutCopyMode = False
End Sub

关键注意事项 #

• 每次操作前调用Reset，确保右键菜单状态统一，避免因之前的修改导致控件查找失败
• 必须添加If Not targetCtrl Is Nothing判断，防止控件不存在时触发运行时错误
• 确认保留的“添加评论”控件ID为2031，确保其不在删除ID数组内

内容的提问来源于stack exchange，提问作者ajr45