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