Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5919 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48264】複数のシートの保護と解除をVBAで行うには、 tamachan 07/4/10(火) 17:03 質問[未読]
【48266】Re:複数のシートの保護と解除をVBAで行うに... Jaka 07/4/10(火) 17:19 発言[未読]
【48283】Re:複数のシートの保護と解除をVBAで行うに... tamachan 07/4/11(水) 14:42 お礼[未読]
【48264】複数のシートの保護と解除をVBAで行うに...
質問  tamachan  - 07/4/10(火) 17:03 -
引用なし
パスワード
   複数のシート(シート名を指定)にパスワードをつけて一括保護、
または解除をしたいのですが、教えてください。
ワークシートの選択は、シート名 9月、10月、11月の3つを指定した場合


Worksheets(Array("9月", "10月", "11月")).Select

のマクロにしましたが、この先がいろいろ試しましたが、
わかりません。教えてください。
【48266】Re:複数のシートの保護と解除をVBAで行う...
発言  Jaka  - 07/4/10(火) 17:19 -
引用なし
パスワード
   For Each Sh In ThisWorkbook.Sheets

Next

For Each Mj In Array("9月", "10月", "11月")
　 Sheets(Mj)・・・・
Next

とかで、一枚づつ保護や解除をしてください。
コードは、シートの保護とかで検索すれば何個か見つかります。
【48283】Re:複数のシートの保護と解除をVBAで行う...
お礼  tamachan  - 07/4/11(水) 14:42 -
引用なし
パスワード
   ▼Jaka さん：

ありがとうございました。
昨日は、質問後出かけてしまいましたので、
御礼が遅くなりました。
教えていただいた内容にProtectをつけて
実行しうまくいきました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5919 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free