给pdf加密的vba代码

下面是一段给 PDF 文件加密的 VBA 代码，可以使用 Acrobat Professional 应用程序：

Sub EncryptPDF() Dim objAcroApp As Acrobat.AcroApp Dim objAcroPDDoc As Acrobat.AcroPDDoc Dim strFileName As String Set objAcroApp = CreateObject("AcroExch.App") Set objAcroPDDoc = CreateObject("AcroExch.PDDoc") strFileName = "C:\Test.pdf" objAcroPDDoc.Open strFileName If objAcroPDDoc.Encrypt("password", 0, 65536) Then objAcroPDDoc.Save 1 objAcroPDDoc.Close MsgBox "PDF File has been encrypted successfully." MsgBox "PDF File encryption failed." End If objAcroApp.Exit Set objAcroPDDoc = Nothing Set objAcroApp = Nothing End Sub

请注意，在代码中 strFileName 变量定义了要加密的 PDF 文件的路径，您可以根据需要修改它。此外，在 objAcroPDDoc.Encrypt("password",0,65536) 行中，"password" 是加密 PDF 文件所使用的密码。