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

  Dim DC As Object : DC = CreateObject("Neevia.docCreator")

  DC.setParameter( "PDFEncryption", "true" )
  DC.setParameter( "PDFEncryptionType", "aes256" )

  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 As Integer = DC.encryptPDF("c:\users\public\in.pdf", "c:\users\public\out.pdf")
  DC = Nothing

  If (RVal<>0) Then
    MsgBox("There was an error encrypting the document!!!")
  Else
    MsgBox("Done encrypting !!!")
  End If