Here’s a more advanced routine that zips an entire folder with a password using 7‑Zip:
This script builds a command-line string and executes it to create an encrypted archive. excel vba zip file with password
Sub TestZipFunction() Dim success As Boolean success = CreatePasswordProtectedZIP( _ "C:\MonthlyReports", _ "C:\Reports_Jan2026.zip", _ "MySecret123", _ "7ZIP") If success Then ' Optionally delete original files ' Kill "C:\MonthlyReports\*.*" End If Here’s a more advanced routine that zips an
Select Case UCase(tool) Case "WINRAR" exePath = "C:\Program Files\WinRAR\WinRAR.exe" cmd = exePath & " a -afzip -p" & password & " -ep1 """ & destZipPath & """ """ & sourcePath & """" Case "7ZIP" exePath = "C:\Program Files\7-Zip\7z.exe" cmd = exePath & " a -tzip -p" & password & " -mx9 """ & destZipPath & """ """ & sourcePath & """ -r" Case Else MsgBox "Please choose WINRAR or 7ZIP" Exit Function End Select To achieve this, we must bridge the gap
If you are searching for a native, one-line VBA command to password-protect a ZIP file, you might be disappointed. Excel VBA does not have built-in methods to handle ZIP compression or encryption natively. To achieve this, we must bridge the gap between VBA and external tools.