VBA：如何对Excel中的PDF进行密码保护

我目前使用以下代码将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

---

一个快速的谷歌向我展示了以下线索：

用户声明“Office PDF选项不包括密码保护选项”，并建议使用第三方替代方案，例如（我从未使用过它，但所附线程中的最后一篇文章声称有工作脚本）

---

诚然，该线程已经使用了2年左右，因此可能已经过时，但我建议您尝试使用pdfforge或其他第三方替代品。

在执行此操作时，看看宏录制器是否能为您带来好处