Excel VBA无法通过工作表编号/Codename引用部分工作表问题

核心验证前提 #

先执行以下代码确认操作逻辑本身无异常：

' 替换为Sheet10对应的工作表显示名称（即Excel底部标签栏显示的名称）
ThisWorkbook.Worksheets("目标表显示名").Range("A6:A14").EntireRow.Hidden = False

如果上述代码可正常运行，说明行隐藏逻辑、工作表本身无损坏，问题完全出在Codename引用环节，按以下优先级排查： #

排查步骤 #

• 检查Codename匹配与重名冲突
  按Alt+F11打开VBA编辑器，按Ctrl+R调出工程资源管理器，所有工作表条目会以Codename (工作表显示名)的格式列出，核对你要操作的目标工作表对应的Codename确实为Sheet10——删除/复制工作表、手动修改Codename属性都会导致Codename和你预期的不一致。
  同时检查工程列表内是否存在名称为Sheet10的标准模块、类模块或用户窗体，同名模块会让VBA优先匹配通用模块而非工作表对象，直接导致引用失效。如果存在重名模块，右键将模块重命名为非Sheet开头的名称（例如mod_DataProcess）即可。
• 校验工作簿内所有工作表的Codename映射
  按Ctrl+G调出VBE的立即窗口，粘贴以下代码按回车运行，立即窗口会输出所有工作表的Codename和对应显示名，确认输出列表中存在Codename为Sheet10的条目：

  Dim ws As Object
  For Each ws In ThisWorkbook.Sheets
      Debug.Print "Codename: " & ws.CodeName & " | 工作表名: " & ws.Name
  Next
  

  如果输出列表中找不到对应目标工作表的Sheet10 Codename，选中工程资源管理器里的目标工作表，按F4调出属性窗口，找到(Name)字段（即Codename），手动将值改回Sheet10即可恢复引用。
• 修复跨版本导致的VBA工程损坏
  相同代码在旧版本文件可正常运行的前提下，该故障大概率是文件在不同Excel版本间交叉编辑保存（例如高版本编辑后用低版本打开保存）导致VBA工程结构损坏，按以下步骤重建文件即可修复：
  1. 打开故障文件，在VBE中把所有自定义编写的模块、工作表代码导出到本地文件夹
  2. 新建空白启用宏的工作簿，将原文件内所有工作表逐个复制到新工作簿
  3. 将之前导出的代码文件重新导入新工作簿的VBA工程，核对所有工作表Codename和原逻辑一致后保存即可。

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