(Excel) Determine if a Zip is Encrypted or Password-Protected

Determines whether or not a zip archive is AES encrypted or password-protected.

Download Excel Class Modules Chilkat Excel Class Modules

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim zip As Chilkat.Zip
Set zip = Chilkat.NewZip

' An encrypted or password-protected zip can be opened
' without specifying the password.  However, the contents
' of the files cannot be unzipped without providing the correct
' password.


success = zip.OpenZip("something.zip")
If (success <> True) Then
    Debug.Print zip.LastErrorText
    Exit Sub
End If

' If the zip is password-protected, meaning that it uses
' the old (insecure) Zip 2.0 encryption, then the
' PasswordProtect property will be True

bPwdProt = zip.PasswordProtect
If (bPwdProt) Then
    Debug.Print "This zip is password-protected."
End If

' If the zip is AES encrypted (WinZip compatible) then
' the Encryption property will be equal to 4.

encValue = zip.Encryption
If (encValue = 4) Then
    Debug.Print "This zip is AES encrypted."
End If

' If the Encryption property = 0, then the zip is NOT
' strong encrypted, and is either password-protected or
' entirely unencrypted, depending on the value of the
' PasswordProtect property.

zip.CloseZip