禁用形状的右键菜单

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

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

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