excel - VBA:如何从 Excel 中使用密码保护 PDF

Question

我目前使用以下代码将部分 Excel 工作表输出为 PDF。我想知道是否也可以在 PDF 输出中添加密码。

Sub print_pdf()

Sheets(Array("Sheet1", "Sheet2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & NameOfWorkbook _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub

Answer 1

快速谷歌显示了这个线程: https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_win10/save-password-protected-pdf-file-with-vba/e3b0be70-d7a5-421b-888f-980d35386c40

如果用户声明“Office PDF 选项不包括密码保护选项。”，并建议使用第三方替代方案，例如 http://download.pdfforge.org/ (我从未使用过它，但附加线程中的最后一篇文章声称有一个有效的脚本)。

不可否认，该线程已有 2 年历史，因此它可能已过时，但我建议您尝试使用 pdfforge 或其他第三方替代方案。