Excel VBA实现指定Very Hidden工作表打印/预览方案求助

核心逻辑 #

Very Hidden状态的工作表无法直接执行打印或预览操作，所以需要临时将目标工作表设为可见，完成操作后再恢复为Very Hidden状态。同时加入错误处理，避免中途出错导致工作表暴露。

可行代码示例 #

Sub PrintOrPreviewVeryHiddenSheets()
    Dim targetSheets As Variant
    Dim ws As Worksheet
    Dim originalState As XlSheetVisibility
    
    ' 在这里添加/修改需要处理的工作表名称，后续新增直接加在数组里
    targetSheets = Array("Front", "Back")
    
    ' 关闭屏幕更新，避免操作时的闪烁
    Application.ScreenUpdating = False
    
    ' 错误捕获：确保出错时也能恢复工作表状态和屏幕更新
    On Error GoTo Cleanup
    
    For Each sheetName In targetSheets
        Set ws = ThisWorkbook.Worksheets(sheetName)
        ' 记录原隐藏状态（这里应为xlSheetVeryHidden）
        originalState = ws.Visible
        
        ' 临时将工作表设为可见
        ws.Visible = xlSheetVisible
        
        ' 执行打印预览，要直接打印就换成 ws.PrintOut
        ws.PrintPreview
        ' ws.PrintOut ' 取消注释这行即可直接打印
        
        ' 恢复为Very Hidden状态
        ws.Visible = xlSheetVeryHidden
    Next sheetName
    
Cleanup:
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    ' 如果出错时工作表处于可见状态，强制恢复为Very Hidden
    If Not ws Is Nothing Then
        ws.Visible = xlSheetVeryHidden
    End If
    ' 若有错误，弹出提示
    If Err.Number <> 0 Then
        MsgBox "操作失败：" & Err.Description, vbExclamation
    End If
End Sub

使用说明 #

1. 添加按钮：在你的输入工作表上，通过「开发工具」→「插入」→「表单控件按钮」添加按钮，然后指定上述宏。
2. 修改目标工作表：直接修改代码里的targetSheets = Array("Front", "Back")，新增工作表名称即可，不用调整其他逻辑。
3. 切换打印/预览：代码默认是预览，要直接打印就注释掉ws.PrintPreview，取消注释ws.PrintOut。

注意事项 #

• 确保Excel宏设置允许运行宏（文件→选项→信任中心→信任中心设置→宏设置，选择「启用所有宏」或「启用带数字签名的宏」）。
• 测试时建议先用预览功能确认效果，再切换到直接打印。

内容的提问来源于stack exchange，提问作者T-roy D89