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/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或其他第三方替代方法。