Workbook.PasswordEncryptionProvider (Excel)

Returns a String specifying the name of the algorithm encryption provider that Microsoft Excel uses when encrypting passwords for the specified workbook.

Dim strPasswordEncryptionProvider As String
strPasswordEncryptionProvider = ActiveWorkbook.PasswordEncryptionProvider