如何使用类似Workbook_BeforePrint的事件阻止指定工作表导出？

Excel确实提供了Workbook_BeforeExport事件，它和你用的Workbook_BeforePrint逻辑类似，能够拦截Excel内置的导出操作（包括系统自带的导出PDF功能）。

你可以在ThisWorkbook模块中添加以下代码，实现阻止「Initial」工作表导出为PDF的需求：

Private Sub Workbook_BeforeExport(ByVal FileFormat As XlFileFormat, ByVal FileName As String, Cancel As Boolean)
    ' 仅拦截导出为PDF的操作（对应xlTypePDF格式）
    If FileFormat = xlTypePDF Then
        ' 判断当前活动工作表是否为"Initial"
        If ActiveSheet.Name = "Initial" Then
            MsgBox "你无法导出Initial工作表。" & vbNewLine & vbNewLine & "    *** 请导出SU2工作表。 ***", , "错误：禁止导出此页面！"
            Cancel = True ' 取消导出操作
        End If
    End If
End Sub

注意事项： #

• 代码必须放在ThisWorkbook模块中（和你之前的Workbook_BeforePrint事件代码同位置）
• 该事件仅对Excel原生导出功能生效，第三方插件（如Adobe PDF插件）的导出操作可能无法通过此事件拦截
• 如果不需要限制导出格式，可去掉If FileFormat = xlTypePDF Then这一层判断，拦截所有导出操作

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