Show Encryption Properties : Workbook Encryption « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Workbook Encryption

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

 

Related examples in the same category