VBA/Excel/Access/Word/Excel/Workbook Encryption

Set Encryption

   <source lang="vb">

Sub SetEncryption()

   Dim myWorkbook As Workbook, pass As String
   Set myWorkbook = ThisWorkbook
   myWorkbook.SetPasswordEncryptionOptions "Microsoft Strong Cryptographic Provider", "RC4", 128, True

End Sub

</source>
   
  

Show Encryption Properties

   <source lang="vb">

Sub ShowEncryptionProperties()

   Dim myWorkbook As Workbook, pass As String
   Set myWorkbook = ThisWorkbook
   Debug.Print myWorkbook.PasswordEncryptionAlgorithm
   Debug.Print myWorkbook.PasswordEncryptionFileProperties
   Debug.Print myWorkbook.PasswordEncryptionKeyLength
   Debug.Print myWorkbook.PasswordEncryptionProvider

End Sub

</source>