
Announcements
Dim objWord, objDoc
Dim inputPDF, outputPDF, password
' Set file paths
inputPDF = "C:\Users\XYZ\OneDrive - MSFT\Document_Folder\Adatum 6.pdf"
outputPDF = "C:\Users\XYZ\OneDrive - MSFT\Document_Folder\Adatum 6.pdf"
password = "MySecurePassword"
' Create Word Application object
Set objWord = CreateObject("Word.Application")
objWord.Visible = False ' Run in the background
' Open the PDF in Word
Set objDoc = objWord.Documents.Open(inputPDF)
' Save as PDF with encryption
objDoc.SaveAs2 outputPDF, 17, False, "", True, False, password
' Close and clean up
objDoc.Close False
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothing