如何通过Excel宏仅在新窗口打开指定隐藏工作表

要实现仅显示指定隐藏工作表的需求，不能直接打开原工作簿的新窗口（因为新窗口会包含所有工作表），正确思路是将目标隐藏工作表复制到全新工作簿中，这样新窗口就只会包含该工作表。

针对普通隐藏工作表的宏代码 #

Sub OpenHiddenSheetInNewWindow()
    Dim targetSheet As Worksheet
    Dim newWorkbook As Workbook
    
    ' 替换为你需要打开的隐藏工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("目标隐藏表名称")
    
    ' 将目标工作表复制到新工作簿（新工作簿仅含该表）
    targetSheet.Copy
    Set newWorkbook = ActiveWorkbook
    
    ' 激活新工作簿完成显示
    newWorkbook.Activate
End Sub

针对非常隐藏（xlSheetVeryHidden）工作表的宏代码 #

如果目标工作表是非常隐藏状态（无法通过常规右键菜单取消隐藏），需要先临时切换其可见状态再复制，完成后恢复原状态：

Sub OpenVeryHiddenSheetInNewWindow()
    Dim targetSheet As Worksheet
    Dim newWorkbook As Workbook
    Dim originalVisibleState As XlSheetVisibility
    
    ' 替换为你需要打开的非常隐藏工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("目标非常隐藏表名称")
    
    ' 保存原可见状态，用于后续恢复
    originalVisibleState = targetSheet.Visible
    
    ' 临时设置为可见，才能执行复制操作
    targetSheet.Visible = xlSheetVisible
    
    ' 复制到新工作簿
    targetSheet.Copy
    Set newWorkbook = ActiveWorkbook
    
    ' 恢复原工作表的非常隐藏状态
    targetSheet.Visible = originalVisibleState
    
    ' 激活新工作簿
    newWorkbook.Activate
End Sub

代码说明 #

• 使用Copy方法时，若不指定目标工作簿，Excel会自动创建新工作簿并将目标工作表复制进去，这个新工作簿仅包含被复制的工作表。
• 对于非常隐藏的工作表，必须先临时改为可见才能复制，操作完成后恢复原状态，不会改变原工作簿的设置。

内容的提问来源于stack exchange，提问作者André Lopes