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

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

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

VBAはExcel2013VBAです。

No.2 回答者： nicotinism 回答日時： 2013/12/15 22:13

まず、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 …
サンプルコードを載せてられたり解説もされています。
そちらと当方の環境が異なるのでサイトの紹介のみとさせてください。

この回答へのお礼

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

お礼日時：2013/12/16 22:45

No.1 回答者： nerimaok 回答日時： 2013/12/15 21:58

OSに暗号化ZIPの作成機能が無くなっている筈です。

http://www.atmarkit.co.jp/ait/articles/0511/26/n …

この回答へのお礼

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

お礼日時：2013/12/16 22:45