如何根据其他工作表的单元格值取消隐藏指定工作表？

原代码的核心问题 #

1. 宏的存放位置错误：你写的Worksheet_Change是工作表事件宏，必须放在触发事件的工作表（也就是"Workbook Setup Instructions"）的代码模块里，不能放在标准模块（比如Module1），否则既不会自动触发，也不会被识别为可执行宏。
2. 逻辑漏洞：只设置目标工作表可见，没隐藏其他已显示的角色表；Else分支只隐藏Role3，逻辑不完整。
3. 缺少变量声明：未声明x_sheet、Rng_1等变量，容易引发潜在错误。
4. 无触发范围判断：每次工作表任意单元格变化都会执行代码，效率低且可能引发不必要的操作。

修正后的完整代码 #

打开VBA编辑器（按Alt+F11），在左侧工程窗口找到Workbook Setup Instructions工作表，双击打开它的代码窗口，粘贴以下代码：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的是C3单元格时才执行后续逻辑
    If Not Intersect(Target, Me.Range("C3")) Is Nothing Then
        Dim ws As Worksheet
        Dim targetRole As String
        
        ' 禁用事件，避免代码执行时触发新的Change事件
        Application.EnableEvents = False
        
        ' 获取C3单元格的角色值
        targetRole = Me.Range("C3").Value
        
        ' 先隐藏所有角色相关工作表
        For Each ws In ThisWorkbook.Worksheets
            Select Case ws.Name
                Case "Role 1", "Role 2", "Role 3"
                    ws.Visible = xlSheetHidden
            End Select
        Next ws
        
        ' 根据角色值显示对应工作表
        Select Case targetRole
            Case "Role 1"
                ThisWorkbook.Worksheets("Role 1").Visible = xlSheetVisible
            Case "Role 2"
                ThisWorkbook.Worksheets("Role 2").Visible = xlSheetVisible
            Case "Role 3"
                ThisWorkbook.Worksheets("Role 3").Visible = xlSheetVisible
            Case Else
                ' 如果C3是其他值，默认隐藏所有角色表
                ' 也可以根据需求修改这里的逻辑
        End Select
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键说明 #

• Option Explicit：强制声明所有变量，避免因拼写错误导致的bug。
• Intersect(Target, Me.Range("C3"))：确保只有修改C3单元格时才执行代码，避免不必要的触发。
• Application.EnableEvents = False：防止代码执行过程中修改工作表可见性时再次触发Worksheet_Change事件，造成死循环。
• 先批量隐藏所有角色表，再显示目标表：确保每次切换角色时，只有当前需要的工作表可见。
• 注意核对所有工作表名称：如果你的"Instructions"工作表实际名称不是Workbook Setup Instructions，或者角色表名称有差异，要对应修改代码里的名称。

内容的提问来源于stack exchange，提问作者Whitney Hamilton