CreateObject("Shell.Application").Namespace(ZipPath).CopyHere FilePath This method does not support passwords . You’ll get an unprotected ZIP every time. So we need an alternative. Method 1: Using Command‑Line 7‑Zip (Most Reliable) 7‑Zip is a free, powerful archiver. Its command‑line version 7z.exe supports AES‑256 encryption with passwords. Step 1: Install 7‑Zip Download and install 7‑Zip. The default path is C:\Program Files\7-Zip\7z.exe . Step 2: VBA Code Sub ZipWithPassword_7Zip() Dim FileToZip As String Dim ZipFileName As String Dim Password As String Dim SevenZipPath As String Dim Cmd As String ' --- Configuration --- FileToZip = "C:\Temp\Confidential.xlsx" ' File or folder to zip ZipFileName = "C:\Temp\Confidential.zip" Password = "MyStrongP@ssw0rd" SevenZipPath = "C:\Program Files\7-Zip\7z.exe"
' Check if 7-Zip exists If Dir(sevenZipExe) = "" Then MsgBox "7-Zip not found. Install from https://www.7-zip.org" Exit Sub End If
Sub ZipWithPassword_WinRAR() Dim rarPath As String Dim source As String Dim target As String Dim pwd As String rarPath = "C:\Program Files\WinRAR\rar.exe" source = "C:\Temp\DataFolder" target = "C:\Temp\Secure.rar" ' WinRAR creates .rar, not .zip pwd = "Secret123" excel vba zip file with password
sevenZipExe = "C:\Program Files\7-Zip\7z.exe"
' Command: a (add), -tzip, -r (recurse), -p, -mx=9 cmd = """" & sevenZipExe & """ a -tzip """ & outputZip & """ """ & _ folderPath & """ -r -p" & pwd & " -mx=9 -y" CreateObject("Shell
MsgBox "Password‑protected ZIP created at " & ZipFileName End Sub ✅ Strong encryption (AES‑256), works with large files, no user interaction. ⚠️ Cons: Requires 7‑Zip installed on every user’s machine. Method 2: Using WinRAR (if already available) WinRAR also has a command‑line tool rar.exe . This method works well in corporate environments where WinRAR is standard.
Sub BatchZipWithPassword() Dim folderPath As String Dim outputZip As String Dim pwd As String Dim sevenZipExe As String Dim cmd As String folderPath = "C:\Reports\2026-04\" ' Folder to compress outputZip = "C:\Archives\Reports_April.zip" pwd = InputBox("Enter ZIP password:", "Security") If pwd = "" Then Exit Sub The default path is C:\Program Files\7-Zip\7z
If Dir(outputZip) <> "" Then MsgBox "Success! Password‑protected ZIP created." & vbNewLine & outputZip Else MsgBox "Failed to create ZIP. Check path and password." End If End Sub | Problem | Likely Fix | |---------|-------------| | 7‑Zip not found | Install 7‑Zip or adjust path (e.g., C:\Program Files (x86)\7-Zip\7z.exe ) | | ZIP created but no password | Ensure -p is directly before the password with no space | | Special characters in password | Test with alphanumeric first; then add symbols | | VBA error “File not found” | Use full absolute paths; avoid spaces – or wrap in double quotes as shown | | Command window flashes | Set wsh.Run cmd, 0, True (0 hides the window) | Final Verdict Excel VBA alone cannot natively create password‑protected ZIP files. But by calling 7‑Zip from VBA, you get a robust, free, and secure solution. The extra dependency is well worth it for real data protection.