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

Set Encryption

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

Show Encryption Properties

 
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