基于另一工作表多单元格值批量隐藏工作表的VBA问题

首先看你提供的代码，存在几个关键问题直接导致功能失效：

• 定义了两个同名的Worksheet_Change事件过程，VBA只会执行最后一个定义的过程，前面写的"N"判断逻辑根本没机会运行。
• 代码里的Case语句没有对应的Select Case结构，属于语法错误，这些代码本身就无法正常编译执行。
• 没有限制触发范围，任何单元格的修改都会触发所有判断，既低效又可能引发不必要的操作。
• 部分判断语句不完整（比如E24的判断只写了开头就中断），还有冗余的Else End If写法。

下面是修正后的完整代码，能完美实现你需要的功能：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' 定义单元格范围和对应工作表名称的数组，按顺序一一对应
    Dim cellAddresses As Variant
    Dim sheetNames As Variant
    Dim i As Integer
    
    ' 对应E14到E45的单元格和工作表，这里先写你已有的部分，剩下的可按格式补充
    cellAddresses = Array("E14", "E15", "E16", "E17", "E18", "E19", "E20", "E21", "E22", "E23", "E24")
    sheetNames = Array("ADL-Eat", "ADL-Drink", "ADL-T", "ADL-Dres", "CBD", "DA", "SE-A", "SE-GK", "Social", "SA", "FS")
    
    ' 只处理E14:E45范围内的单元格修改
    If Not Intersect(Target, Me.Range("E14:E45")) Is Nothing Then
        ' 关闭事件触发，避免意外循环
        Application.EnableEvents = False
        
        ' 遍历所有对应关系，更新工作表可见性
        For i = LBound(cellAddresses) To UBound(cellAddresses)
            Select Case UCase(Me.Range(cellAddresses(i)).Value) ' 用UCase兼容大小写输入
                Case "N"
                    ThisWorkbook.Worksheets(sheetNames(i)).Visible = False
                Case "Y"
                    ThisWorkbook.Worksheets(sheetNames(i)).Visible = True
                ' 可选：处理非Y/N的情况，这里默认隐藏
                Case Else
                    ThisWorkbook.Worksheets(sheetNames(i)).Visible = False
            End Select
        Next i
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

代码核心优势说明： #

1. 合并事件过程：只保留一个Worksheet_Change事件，确保所有逻辑都能执行。
2. 数组化管理：用数组存储单元格与工作表的对应关系，比一堆零散的If语句更简洁，后续添加新的对应关系只需在数组里补充，维护成本极低。
3. 范围精准触发：用Intersect判断修改的单元格是否在目标范围内，避免无关操作触发代码。
4. 事件安全控制：修改工作表可见性前关闭Application.EnableEvents，防止意外触发循环执行。
5. 大小写兼容：用UCase把单元格值转为大写，输入"n"或"y"也能正常识别。

使用注意事项： #

• 把这段代码粘贴到IEP工作表的代码模块中（右键IEP工作表标签→查看代码，然后粘贴），不要放在标准模块里。
• 补充完cellAddresses和sheetNames数组中E25到E45对应的工作表名称，确保两个数组的元素数量一致。
• 如果需要完全隐藏工作表（无法通过右键取消隐藏），可以把Visible = False改为Visible = xlSheetVeryHidden，但这种隐藏只能通过VBA恢复。

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