How can I remove(Decrypt) Password from Multiple PDF files with help of VBA.

[theGandalf]

I Have many PDF files and they all are password protected and all files have the same password. Is there any way I can remove password from all the pdf file at once

 

[BigBeachBananas]

WARNING: CANNOT UNDO CHANGES. TEST ON COPY OF YOUR FILES.

Make sure you enable the "Adobe Acrobat XX.0 Type Library" library.

Sub RemovePDFPassword()
    Dim objApp As Object
    Dim strFolderPath As String
    Dim strPassword As String

    strFolderPath = "" '<~~ Your path
    strPassword = "" '<~~ Common password

    Set objApp = CreateObject("AcroExch.App")

    Dim objFolder As Object
    Dim objFile As Object

    Set objFolder = objApp.GetFolder(strFolderPath)
    For Each objFile In objFolder.GetFiles("*.pdf")
        objApp.OpenDocument strFolderPath & objFile.Name, strPassword
        objApp.ActiveDocument.Save
        objApp.ActiveDocument.Close
    Next objFile

    objApp.Exit
    Set objApp = Nothing
End Sub