PDF Encryption Command Line Tool Download: LINK
Buy Me a Coffee? Your support is much appreciated!
PayPal Me: https://www.paypal.me/jiejenn/5
Venmo: @Jie-Jenn
Jul 5, 2021 | Uncategorized | 14 comments
PayPal Me: https://www.paypal.me/jiejenn/5
Venmo: @Jie-Jenn
Subscribe My YouTube Channel
Cookie | Duration | Description |
---|---|---|
cookielawinfo-checkbox-analytics | 11 months | This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Analytics". |
cookielawinfo-checkbox-functional | 11 months | The cookie is set by GDPR cookie consent to record the user consent for the cookies in the category "Functional". |
cookielawinfo-checkbox-necessary | 11 months | This cookie is set by GDPR Cookie Consent plugin. The cookies is used to store the user consent for the cookies in the category "Necessary". |
cookielawinfo-checkbox-others | 11 months | This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Other. |
cookielawinfo-checkbox-performance | 11 months | This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Performance". |
viewed_cookie_policy | 11 months | The cookie is set by the GDPR Cookie Consent plugin and is used to store whether or not user has consented to the use of cookies. It does not store any personal data. |
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?
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
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)
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.
hai, i get trouble when i run macro dan the command line show said : the following arguments are required: password, Please help
solved
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!
How is this resolved? Please help
What version of encryption does your tool use? Adobe X 256bit?
You able to share/show us what’s in the exe files you wrote in phython? thank you
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
Resolved
command line show said : the following arguments are required: password, Please help
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