Excel右键禁用宏添加开关按钮需求：允许指定用户获完全控制

当然有完美的实现方案！核心思路是给你的右键禁用逻辑加一个全局控制开关，然后在隐藏工作表里放一个按钮来触发关闭这个开关，知情用户只需找到这个隐藏工作表点击按钮，就能直接解锁全部权限，完全不用修改VBA代码。下面是具体步骤：

步骤1：创建全局开关变量 #

首先插入一个标准模块（不是ThisWorkbook或工作表模块），用来存储控制开关的全局变量：

' 标准模块（比如Module1）里的代码
Public EnableRightClickDisable As Boolean

Sub Workbook_Open()
    ' 工作簿打开时默认开启右键禁用
    EnableRightClickDisable = True
End Sub

注：把开关变量放在标准模块里，才能让所有VBA代码都能访问到它。

步骤2：修改原有的右键禁用宏 #

更新你已经写好的Workbook_SheetBeforeRightClick事件，加入开关判断——只有当开关开启时，才执行禁用右键的操作：

' ThisWorkbook模块里的代码
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    ' 先判断开关状态，只有开启时才禁用右键
    If EnableRightClickDisable Then
        Cancel = True
        MsgBox "右键操作已禁用！", vbExclamation
        ' 这里保留你原来的其他禁用逻辑（如果有的话）
    End If
End Sub

步骤3：在隐藏工作表添加控制按钮 #

1. 先临时取消你要放按钮的隐藏工作表（比如命名为AdminControl）：右键工作表标签 → 取消隐藏。
2. 点击「开发工具」选项卡 → 「插入」→ 选择表单控件按钮（第一个图标），在工作表上画一个按钮，命名为「解锁完全控制」。
3. 给按钮指定宏，新建以下宏代码（可以放在刚才的标准模块里）：

Sub UnlockFullControl()
    ' 关闭右键禁用开关
    EnableRightClickDisable = False
    
    ' 可选：自动取消所有工作表的隐藏，方便用户操作
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
    ' 可选：自动取消所有列的隐藏
    For Each ws In ThisWorkbook.Worksheets
        ws.Columns.Hidden = False
    Next ws
    
    MsgBox "已解锁完全控制权限！右键功能已恢复，所有隐藏内容已显示。", vbInformation
End Sub

4. 操作完成后，把AdminControl工作表重新隐藏：右键工作表标签 → 隐藏。

注意事项 #

• 务必把工作簿保存为启用宏的格式（.xlsm或.xlsb），否则宏会失效。
• 如果用户禁用宏打开工作簿，全局变量会默认是False，右键禁用功能不会生效——这是正常的，因为宏没运行的话原本的禁用逻辑也不会触发。
• 你可以根据需求调整按钮宏里的内容，比如不需要自动显示所有隐藏内容，就删掉对应的循环代码。

内容的提问来源于stack exchange，提问作者James O'Sullivan