基于隐藏单元格值控制WJCR工作表激活弹窗的VBA代码修改需求

需求背景 #

你当前的代码在激活WJCR工作表时会弹出提示框，现在需要添加隐藏单元格控制逻辑：

• 当指定隐藏单元格的值为"1"或"Yes"（不区分大小写）时，激活WJCR工作表正常显示弹窗
• 当值为"0"或"No"时，不显示弹窗
• 默认启用弹窗，无需进入开发者工具，直接修改隐藏单元格值即可切换开关状态

修改后的代码（仍保留在This Workbook模块中） #

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ' 自定义控制弹窗开关的单元格，示例用"配置"工作表的A1单元格，可自行修改
    Dim controlCell As Range
    Set controlCell = ThisWorkbook.Sheets("配置").Range("A1")
    
    ' 默认开启弹窗（如果单元格读取失败，比如工作表/单元格不存在，仍保持弹窗开启）
    Dim showPopup As Boolean
    showPopup = True
    
    On Error Resume Next
    ' 统一转大写并去除首尾空格，避免大小写/空格导致的判断错误
    Select Case UCase(Trim(controlCell.Value))
        Case "0", "NO"
            showPopup = False
        Case "1", "YES"
            showPopup = True
    End Select
    On Error GoTo 0 ' 恢复默认错误处理，避免后续代码受影响
    
    ' 激活WJCR工作表且开关开启时，显示提示弹窗
    If Sh.Name = "WJCR" And showPopup Then
        MsgBox "Please ensure to have MACROs Enabled by clicking the link in the Toolbar above the cells. Please Ensure to hit the UPDATE button after you copy/paste into the TS Original tab.", vbInformation, "WJCR Instructions"
    End If
End Sub

操作指南 #

1. 设置控制单元格：
   • 新建一个工作表（比如命名为"配置"），选中任意单元格（示例用A1）
   • 输入默认值"1"或"Yes"（确保弹窗默认处于开启状态）
   • 右键该单元格 → 选择「设置单元格格式」→ 切换到「保护」选项卡，勾选「隐藏」，之后可以保护该工作表（可选，防止误操作修改）
2. 调整代码引用：
   • 如果你的控制单元格不在"配置"工作表的A1，修改代码中Set controlCell = ThisWorkbook.Sheets("配置").Range("A1")这一行，替换为实际的工作表名称和单元格地址
3. 测试验证：
   • 将控制单元格改为"0"或"No"，切换到WJCR工作表，弹窗不再显示
   • 改回"1"或"Yes"，切换到WJCR工作表，弹窗恢复显示

内容的提问来源于stack exchange，提问作者erik kellerman