エクセル 複数ブックの保護の一括解除について

質問

エクセル2003を使用しています。
具体的に質問致します。
1つのフォルダ内に100位のブックが存在します。
そのブックには、シートが1つだけあり、保護がかかっています。（パスワードはなし）
その保護を一括して解除したいのです。マクロなどを使えば可能でしょうか？
よろしくお願いします。

回答No.1

keithin · ベストアンサー

複数のブックを「一括して」シート保護解除することはできません。
マクロを使い，一つずつ開いて全部解除します。

準備：
まっさらのブックを一つ用意，100個のブックと同じフォルダに保存する
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim myPath as string
　dim myFile as string

　application.calculation = xlcalculationmanual
　application.screenupdating = false

　mypath = thisworkbook.path & "\"
　myfile = dir(mypath & "*.xls")

　do until myfile = ""
　　if myfile <> thisworkbook.name then
　　　workbooks.open filename:=mypath & myfile
　　　workbooks(myfile).worksheets(1).unprotect
　　　workbooks(myfile).close savechanges:=true
　　end if
　　myfile = dir()
　loop

　application.screenupdating = true
　application.calculation = xlcalculationautomatic
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押してマクロを実行する。

＃参考
100個のブックが保存されているフォルダのパスなど具体的な情報があれば，たとえばマクロブックを同じフォルダにわざわざ保存するとかもなく，マクロももう一段簡単になりました。

お礼

ご回答ありがとうございます。
お世話になりました。