VBA: как защитить паролем PDF из Excel

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 или какую-либо другую стороннюю альтернативу.