使用Excel VBA禁用特定的工作表(“层”)右键单击选项

时间:2019-02-14 17:16:01

标签: excel vba

我正在尝试禁用(或隐藏)Excel工作表/标签菜单上的特定右键单击选项。我不想禁用整个菜单per this thread

我在Excel 2010和2016中都尝试过,结果相同。该代码运行正常,但工作表右键单击菜单中的选项仍处于启用状态。我尝试使用控件的名称和ID无济于事。

Private Sub Worksheet_Activate()
    Application.CommandBars("cell").Controls("cut").Enabled = False 'Works
    With Application.CommandBars("Ply")
        .Controls("Insert...").Enabled = False
        .Controls("&Select All Sheets").Enabled = False
        .Controls("Select All Sheets").Enabled = False
        .FindControl(ID:=946).Enabled = False '&Select All Sheets ID:946
       '.Enabled = False 'Works but don't want entire menu disabled
    End With
End Sub

代码后,选项仍处于启用状态:

Excel Sheet Right Click Menu Options

谢谢。

0 个答案:

没有答案