Excel VBA質問箱 IV

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

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


12720 / 13646 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   できました!
ありがとうございます!!
解決しました!
シートの解除も教えて頂いた式を参考にして
作る事ができました。

12720 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free