Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12719 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9015】複数のシートで保護と解除をしたい tomato 03/11/14(金) 15:23 質問
【9016】Re:複数のシートで保護と解除をしたい INA 03/11/14(金) 15:31 回答
【9019】Re:複数のシートで保護と解除をしたい tomato 03/11/14(金) 16:06 質問
【9021】Re:複数のシートで保護と解除をしたい INA 03/11/14(金) 16:12 回答
【9022】Re:複数のシートで保護と解除をしたい tomato 03/11/14(金) 16:30 お礼
【9015】複数のシートで保護と解除をしたい
質問  tomato  - 03/11/14(金) 15:23 -
引用なし
パスワード
   複数のシートの保護と解除を一括でかけたいと質問した所、
マクロでないとできないと教えて頂きました。
お手数お掛けして申し訳ないのですが
複数のシートを一括でシート保護をかけるマクロと
保護を解除するマクロを教えてください。
【9016】Re:複数のシートで保護と解除をしたい
回答  INA  - 03/11/14(金) 15:31 -
引用なし
パスワード
   シートを順番に保護する作業を
マクロの自動記録
すれば出来ると思います。

解除も同様に、出来ると思います。
【9019】Re:複数のシートで保護と解除をしたい
質問  tomato  - 03/11/14(金) 16:06 -
引用なし
パスワード
   ▼INA さん：
>マクロの自動記録

ありがとうございます。
自動記録で行なってみたら
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
と、できました。
ActiveSheet.を
Book内のシート全てと変更したいのですが
どうすればよいでしょうか？
【9021】Re:複数のシートで保護と解除をしたい
回答  INA  - 03/11/14(金) 16:12 -
引用なし
パスワード
   >ActiveSheet.を
>Book内のシート全てと変更したいのですが
>どうすればよいでしょうか？
各シート毎に保護しなくてはいけませんので、
ループ文で処理します。

dim i as long

for i = 1 to worksheets.count
worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
next i

となります。
【9022】Re:複数のシートで保護と解除をしたい
お礼  tomato  - 03/11/14(金) 16:30 -
引用なし
パスワード
   できました！
ありがとうございます！！
解決しました！
シートの解除も教えて頂いた式を参考にして
作る事ができました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12719 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free