Excel Vba Zip - File With Password

Happy coding, and keep your data secure!

' Command: a = add, -p = password, -ep1 = no full paths Dim cmd As String cmd = """" & rarPath & """ a -p" & pwd & " -ep1 """ & target & """ """ & source & """" excel vba zip file with password

' Delete existing ZIP if present If Dir(outputZip) <> "" Then Kill outputZip Happy coding, and keep your data secure

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" -p = password

sevenZipExe = "C:\Program Files\7-Zip\7z.exe"