Question

我想限制人们查看我的Excel的隐藏部分。为了让我的VBA在用户点击文件时隐藏/取消隐藏列/表，我选择不保护工作簿结构。下面的代码有效，但我想在隐藏的工作表中放入一个按钮来禁用此宏，如果用户知道它在那里（即我希望一些用户完全控制，而不必更改VBA） - 任何想法？

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

谢谢，

詹姆斯

Answer 1

您可以在工作表中放置一个ActiveX复选框，并在工作表的模块中使用它：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If CheckBox1 Then
        Cancel = True
        MsgBox ("Sorry Right Click is Disbaled for this Workbook")
    End If
End Sub

启用/禁用右键单击的选项

1 个答案: