Excel右键菜单部分选项禁用问题及控件ID使用方法咨询

一、目标控件的直接禁用语法 #

你遇到的问题是因为这三个控件并非直接位于cell右键菜单的根层级，而是嵌套在子菜单中，精准引用即可生效：

1. 禁用"New Comment"

Application.CommandBars("Cell").Controls("Comments").Controls("New Comment").Enabled = False

2. 禁用"New Note"

Application.CommandBars("Cell").Controls("Comments").Controls("New Note").Enabled = False

3. 禁用"Format Cells..."
   若根菜单直接引用无效，它大概率嵌套在"Format"子菜单中：

Application.CommandBars("Cell").Controls("Format").Controls("Format Cells...").Enabled = False

二、通过控件ID禁用的方法 #

控件ID是唯一标识，不会随Excel版本或语言环境变化，比名称引用更可靠，使用FindControl方法直接定位：

示例代码 #

Sub DisableControlsByID()
    Dim targetBar As CommandBar
    Dim ctrl As CommandBarControl
    
    Set targetBar = Application.CommandBars("Cell")
    
    ' 禁用New Comment（ID:1589）
    Set ctrl = targetBar.FindControl(ID:=1589)
    If Not ctrl Is Nothing Then ctrl.Enabled = False
    
    ' 禁用New Note（ID:1590）
    Set ctrl = targetBar.FindControl(ID:=1590)
    If Not ctrl Is Nothing Then ctrl.Enabled = False
    
    ' 禁用Format Cells（ID:170）
    Set ctrl = targetBar.FindControl(ID:=170)
    If Not ctrl Is Nothing Then ctrl.Enabled = False
End Sub

三、通用的菜单选项查找与禁用方法 #

1. 遍历菜单获取控件信息 #

编写VBA代码遍历目标菜单的所有控件，输出名称、ID和层级关系，帮你定位任意右键菜单控件：

Sub ListMenuControls()
    Dim parentBar As CommandBar
    Dim parentCtrl As CommandBarControl
    Dim childCtrl As CommandBarControl
    
    ' 替换为你要查看的菜单名称，比如"Cell"、"Row"、"Column"等
    Set parentBar = Application.CommandBars("Cell")
    
    Debug.Print "=== " & parentBar.Name & " Menu Controls ==="
    For Each parentCtrl In parentBar.Controls
        Debug.Print "Parent: " & parentCtrl.Caption & " | ID: " & parentCtrl.ID & " | Type: " & parentCtrl.Type
        
        ' 如果是弹出子菜单，遍历子控件
        If parentCtrl.Type = msoControlPopup Then
            For Each childCtrl In parentCtrl.Controls
                Debug.Print "  Child: " & childCtrl.Caption & " | ID: " & childCtrl.ID
            Next childCtrl
        End If
    Next parentCtrl
End Sub

运行后打开VBA编辑器的立即窗口（快捷键Ctrl+G），即可查看所有控件的详细信息。

2. 通用禁用步骤 #

1. 运行上述遍历代码，找到目标控件的ID或完整层级路径；
2. 路径引用：逐层调用CommandBars("菜单名").Controls("父菜单名").Controls("目标控件名").Enabled = False；
3. ID引用：使用FindControl方法定位后禁用，避免名称/层级变化导致失效；
4. 执行时机：将禁用代码放在Workbook_Open事件中，确保打开文件时自动生效。

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