VBAでパスワードつきZIP圧縮について

質問

次のURLを使わせていただいてVBAでZIP圧縮できました。
http://scripting.cocolog-nifty.com/blog/2007/11/vbazip_a144.html

さらに、VBAからパスワードつきでZIP圧縮したいのですがどのようにしたらいいでしょうか？

VBAはExcel2013VBAです。

回答No.2

nicotinism

まず、Shell.Application のCopyHere ですが
これがちょっと気がかりです

CopyHere メソッドから Zip ファイルを処理することはできません
http://support.microsoft.com/kb/2679832/ja
>エクスプローラーから、ユーザー操作以外の方法で ZIP ファイルを扱うことは想定されていません。
>CopyHere メソッドを使用して ZIP ファイルからファイルを取り出したり、ZIP >ファイルにファイルを格納したりすることもサポート対象外となります。

当方Windows7 & Office2010で問題なく処理されていますが、
サポート外なので自己責任でということでしょう。
自分自身や身内の部署くらいなら構わないのでは？と思います。

パスワード付きZIP作成は、OSには準備されていないようです。
（7では、8は分かりません。私が知らないだけかもしれない・・・）
なので外部のDLLを使用することになりそうです。
7z 形式でファイルをもらって解凍できなかったことがありまして
その時に見つけたサイトです。
http://hatenachips.blog34.fc2.com/blog-entry-376.html
サンプルコードを載せてられたり解説もされています。
そちらと当方の環境が異なるのでサイトの紹介のみとさせてください。

お礼

ありがとうございました。
出来ました。

回答No.1

nerimaok

OSに暗号化ZIPの作成機能が無くなっている筈です。
http://www.atmarkit.co.jp/ait/articles/0511/26/news011.html

お礼

ありがとうございました。