Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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