仅针对当前工作簿禁用 Excel 中的右键单击选项的 VBA 代码答案

【问题标题】：VBA Code for disable the Right Click option in Excel for the current Workbook only仅针对当前工作簿禁用 Excel 中的右键单击选项的 VBA 代码
【发布时间】：2014-04-21 21:27:52
【问题描述】：

我在工作簿中创建了多个工作表。
我希望我的用户不允许在 excel 中查看其他工作表。
由于我想禁用 Excel 打开事件中的右键单击选项。

我有一段代码：

Private Sub Workbook_SheetBeforeRightClick (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    MsgBox ("Sorry Right Click is Disabled for this Workbook")
End Sub

上述代码只有在打开工作簿并运行宏后才会运行。
我想在打开工作簿时禁用工作簿的右键单击选项。

【问题讨论】：

您能详细解释一下您要防止的行为吗？可能有更好的方法来做到这一点（尽管上面的代码如果放在Workbook 模块中应该可以在没有任何手动干预的情况下工作（我只是在当前打开的工作簿中对此进行了测试——我不必重新打开文件也不运行任何宏，在它工作之前）。
如果您不希望您的用户看到其他工作表，为什么不隐藏这些工作表而不是尝试禁用程序的功能？
为什么不将工作表设置为 xlVeryHidden 并用密码保护 VBA 项目？

标签： excel vba

【解决方案1】：

试试这个，不同的参数...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
End Sub

【讨论】：

【解决方案2】：

你可以试试下面的代码： - 祝你好运

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub

和

Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub

【讨论】：