禁用形状的右键菜单

Question

有没有办法禁用形状的右键菜单，例如VBA中的矩形？

我试过了：

Private Sub Workbook_Open()
'    Application.WindowState = xlMaximized
    Application.DisplayFullScreen = True
    Application.CommandBars("Ply").Enabled = False
    Application.CommandBars("Shapes").Enabled = False
End Sub

但这似乎不起作用。

Answer 1

右键单击菜单（也称为上下文菜单）不是命令栏。

您可以通过其旧名称，工具栏或其新名称Ribbons了解命令栏。

虽然你可以capture and/or disable a right-click event on a worksheet，但这不适用于像形状这样的对象。

但是，您可以通过保护工作表不受更改（使用或不使用密码）来阻止显示上下文菜单。

如有必要，您可以允许用户进行一些更改，但不允许其他更改。有关this link的更多信息。

Answer 2

我附上了我的应用程序的一些截图，只是为了描述我想要存档的内容。

问题是当尝试选择多个形状时菜单真的很烦人。