3 Comments

1. 

   Kim on November 25, 2021 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 September 5, 2022 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 September 24, 2022 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