複数ファイルへの一括パスワード入力＆パスワード解除について

＜質問＞同一フォルダ内にある複数のファイルのパスワードを一括解除して保存する方法はございませんでしょうか？

＜前提＞
・OSは、WINDOWSXP、officeは2003
・ファイルは、word,excel,pdf等が混在
・パスワードはわかっていて、同一フォルダには同一パスワードのみ

＜その他＞
・ベクター、窓の杜、グーグルなどで、かなりの時間をかけて検索をしてみましたが、それらしいものはありませんでした。
・マクロを使えれば、なんとかなるのかなとも思うのですが、知恵がまわりません。
・会社が買収され、買収側のシステムにあわせる必要があり、一旦パスワードをすべて外さなければなりません。
・恐縮ですが、お知恵を頂きたいです。

No.1 回答者： imogasi 回答日時： 2008/11/04 21:26

VBAレベルでは（読み取りパスワードについて）

（１）開き方
エクセルでは
Sub Macro1()
Workbooks.Open Filename:= _
"C:\Documents and Settings\XXXX\My Documents\bbB1.xls", Password:="0001"
End Sub
で読み取りパスワード0001が設定されている,bbb1.xlsブックが開きます。
（２）パスワードなしにする
Sub Macro2()
ActiveWorkbook.Password = ""
End Sub
そしてブックを上書き保存する。
（３）「同じ１つのフォルダ内にあるエクセルのブック」を捉まえる方法
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
ほか、WEB（Googleなど）で「フォルダ　すべてのブック　VBA」ででも照会すること。沢山コード実例が出ます。
DIR関数繰り回し
FSOによるFor Each
その他
が現れるでしょう。
ーーー
ワードVBAもほとんど同じコードで出来るでしょう。文書を開く、は
Documents.Open FileName:="文書2.doc"
のようなもので、ワードで、「文書を開く」操作をして、マクロの記録をとればわかります。
ーー
PDFなどMSのオフィスソフト以外のことは、市中の書籍などでは情報が少なく、VBAに当たるものがあるのか、どうするのか不勉強です。
http://support.adobe.co.jp/faq/qadoc/spitz.nsf/0 …
にプログラムで処理する場合の一端が出てますが、質問者のレベルにも依るが、にわかには,実現は無理と思います。

この回答へのお礼

早速の回答ありがとうございます！！

できるかわかりませんが、やってみます！！

お礼日時：2008/11/05 09:19