Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3846 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59861】全ワークブックで実行したい 桜 09/1/14(水) 13:14 質問[未読]
【59862】Re:全ワークブックで実行したい Jaka 09/1/14(水) 13:56 発言[未読]
【59863】Re:全ワークブックで実行したい 桜 09/1/14(水) 15:31 お礼[未読]
【59861】全ワークブックで実行したい
質問  桜  - 09/1/14(水) 13:14 -
引用なし
パスワード
   こんにちは。
現在excelファイルの全シートにかかった保護を解除するマクロを書いています。

条件
・複数のワークブックが開いている
・その中に全シートにパスワード付保護のかかったワークブック(ファイル名・保存先不定）があり、それを一度に解除したい
・そのワークブックにはマクロは記入できない
・別のワークブックに解除マクロを作成し、実行することで、該当ワークブックの保護解除を行いたい

保護のかかったワークブックを特定するのは難しいだろうことから、
現在開いているワークブック全てで解除を実行する方向で考えています

以下エラーで動きませんが、アドバイスが頂ければ助かります。
どうぞ宜しくお願いいたします。

Sub 全解除()

Dim wb As Workbook
Dim ws As Worksheet

For Each wb In Workbooks
　　

For Each ws In wb
ws.Unprotect ("pass")
Next
Next

End Sub
【59862】Re:全ワークブックで実行したい
発言  Jaka  - 09/1/14(水) 13:56 -
引用なし
パスワード
   >For Each ws In wb.Worksheets
【59863】Re:全ワークブックで実行したい
お礼  桜  - 09/1/14(水) 15:31 -
引用なし
パスワード
   Jakaさんこんにちは！
試してみたらすんなり実行できました。
ありがとうございます！

.Worksheetsを入れないといけなかったんですね…
勉強不足で申し訳ありません。

本当に助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3846 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free