Workbook.PasswordEncryptionKeyLength (Excel)
Retorna um Long que indica o comprimento da chave do algoritmo que o Microsoft Excel usa ao criptografar senhas para a pasta de trabalho especificada. Somente leitura.
Use o método SetPasswordEncryptionOptions para especificar se o Excel criptografa as propriedades do arquivo da pasta de trabalho protegida por senha especificada.
Dim lngPasswordEncryptionKeyLength As Long
lngPasswordEncryptionKeyLength = ActiveWorkbook.PasswordEncryptionKeyLength