VBA：如何使用密码对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

一个快速的Google向我显示了此线程： https : //answers.microsoft.com/zh-cn/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或其他一些第三方替代方法。