1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20

   Dim DC : Set DC = CreateObject("Neevia.docCreator")

   DC.setParameter "PDFEncryption", "true"
   DC.setParameter "PDFEncryptionType", "aes"

   DC.setParameter "PDFOwnerPassword", "owner"
   DC.setParameter "PDFUserPassword", "open"

   ' p - disable document printing
   ' e - disable extraction of text and graphics
   DC.setParameter "Permissions", "pe"

   Dim RVal : RVal = DC.encryptPDF("c:\users\public\in.pdf", "c:\users\public\out.pdf")
   If (RVal<>0) Then
     MsgBox "There was an error encrypting the document!!!"
   Else
     MsgBox "Done encrypting !!!"
   End If

   Set DC = Nothing