14 Comments

1. 

   Kim on 2021-11-25 at 10:53 PM

   The pdf file created in Excel 2013 version is not encrypted.
   Is there any way to encrypt the pdf file created in Excel 2013 version?

   Reply
2. 

   Pearlyn on 2022-09-05 at 4:39 PM

   I followed the same steps you showed in the video. It worked the first time but when I tried it again, it prompted file not found. I checked the codes in VBA but they are all in order.

   Option Explicit

   Sub Encrypt_PDFs()

   Dim file_name As String
   Dim row_number As Long, last_row As Long
   Dim wsSheet1 As Worksheet

   Set wsSheet1 = ThisWorkbook.Worksheets(“Sheet1”)

   With wsSheet1
   last_row = .Cells(Rows.Count, “A”).End(xlUp).Row

   For row_number = 2 To last_row
   Call Shell(“encrypt_pdf.exe ” & Chr(34) & .Cells(row_number, “A”).Value & Chr(34) & ” ” & Chr(34) & .Cells(row_number, “B”).Value & Chr(34), vbNormalFocus)

   Next row_number

   End With

   Set wsSheet1 = Nothing

   End Sub

   Reply
3. 

   Paul W on 2022-09-24 at 5:36 AM

   you need the full path to encrypt_pdf.exe. If you put the exe in the same folder as the excel file, you can use
   Call Shell(ActiveWorkbook.Path & “\” & “encrypt_pdf.exe ” & Chr(34) & .Cells(row_number, “A”).Value & Chr(34) & ” ” & Chr(34) & .Cells(row_number, “B”).Value & Chr(34), vbNormalFocus)

   Reply
   • 

     Pearlyn on 2022-09-26 at 2:48 PM

     Thanks Paul for your reply.

     When I used the code in your video and create a new file, the code works. But when I saved the file and reopen it to use it to encrypt other new PDF, the macro will throw me this error “Run-time error ’53’: File not found”.

     I tried using the code in your reply above, but it didn’t work too and had the same error message.

     FYI, I saved the exe, excel and PDF files in the same folder.

     Reply
4. 

   Rhd on 2022-12-28 at 7:20 PM

   hai, i get trouble when i run macro dan the command line show said : the following arguments are required: password, Please help

   Reply
   • 

     rhd on 2022-12-28 at 9:49 PM

     solved

     Reply
     • 

       Donna on 2023-04-21 at 4:22 PM

       Help please! Not sure where i have went wrong…

       I have copied the code as above but when I run the macro I get

       ” Compile Error:
       Variable not defined” and “Sheet1” is highlighted in the line:

       Set wsSheet1 “ThisWorkbook.Worksheets(“Sheet1′)

       Please help!

       Reply
     • 

       Jaisam on 2023-06-23 at 9:14 AM

       How is this resolved? Please help

       Reply
5. 

   Chris on 2023-02-25 at 12:11 PM

   What version of encryption does your tool use? Adobe X 256bit?

   Reply
6. 

   Roger on 2023-03-17 at 6:48 PM

   You able to share/show us what’s in the exe files you wrote in phython? thank you

   Reply
7. 

   Jaisam on 2023-06-23 at 6:05 AM

   I am getting

   Run-time error ‘1004’

   Application-defined or object-defined error

   Sub Encrypt_PDFs()

   Dim file_name As String
   Dim row_number As Long, last_row As Long
   Dim wsList As Worksheet

   Set wsList = ThisWorkbook.Worksheets(“List”)

   With wsList
   last_row = .Cells(Rows.Count, “A”).End(xlUp).Row

   For row_number = 2 To last_row
   Call Shell(“encrypt_pdf.exe” & Chr(34) & .Cells(row_number, “A”).Value & Chr(34) & ”” & Chr(34) & .Cells(row_number, “B”).Value & Chr(34), vbNormalFocus)

   Next row_number

   End With

   Set wsList = Nothing

   End Sub

   Reply
   • 

     Jaisam on 2023-06-23 at 7:44 AM

     Resolved

     Reply
8. 

   Jaisam on 2023-06-23 at 7:45 AM

   command line show said : the following arguments are required: password, Please help

   Reply
9. 

   shah on 2023-09-11 at 10:59 AM

   I am getting

   variable not define

   Option Explicit

   Sub Encrypt_PDFs()

   Dim file_name As String
   Dim row_number As Long, last_row As Long
   Dim wsList As Worksheet

   Set wsList = ThisWorkbook.Worksheets(“List”)

   With wsList
   last_row = .Cells(Rows.Count, “A”).End(xlUp).Row

   For row_number = 2 To last_row
   Call Shell(ActiveWorkbook.Path & “ \ ” & “encrypt_pdf.exe” & Chr(34) & .Cells(row_number, “A”).Value & Chr(34) & Chr(34) & .Cells(row_number, “B”).Value & Chr(34), vbNormalFocus)
   Next row_number

   End With

   Set wsList = Nothing

   End Sub

   Reply