VBA帶密碼文件壓縮和密碼加密解密記錄

'パスワード付きzipファイル圧縮
Function zipCompression(ByVal targetPath As String, ByVal zipPath As String, Optional zipCmdPath As String = "", Optional zipPwd As String = "NO_PWD") As Boolean

    Dim wsh  As New IWshRuntimeLibrary.WshShell
    Dim exRtn  As WshExec
    Dim zipCmd As String
    
    zipCompression = True
    
    '圧縮アプリ実行ファイル標準パス
    Const EXE_7ZIP        As String = "C:\Program Files\7-Zip\7z.exe"
    Const EXE_7ZIP_X86    As String = "C:\Program Files (x86)\7-Zip\7z.exe"
    Const EXE_LHAPLUS     As String = "C:\Program Files\Lhaplus\Lhaplus.exe"
    Const EXE_LHAPLUS_X86 As String = "C:\Program Files (x86)\Lhaplus\Lhaplus.exe"
    
    
    ' 圧縮解凍ソフト存在チェック
    If Dir(zipCmdPath & "\7z.exe") <> "" Then
    
        zipCmd = """" & zi