こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

保護及び保護の解除を一括して処理する方法のご教示を。

1個のブックに、30シート作成してあります。(増減の可能性があり最終が何シートになるかわかりません)
シート名は、数字単体名と漢字名のものとが混在しています

そのようなブックが多数あります

各シートに保護が掛けてあります

訂正などする時の為に、保護と保護解除をマクロで組み、各シートにマクロボタンで操作するようにしてあります
しかし、ブック全体を修正す時に各シートの保護をいちいち解除しなければなりません。

そこで、一括して保護及び保護の解除をしたいので、その方法を御教示下さい。
1.ブック単位で、各シートの保護及び保護の解除を一括でする。
2.シート毎に保護及び保護の解除する場合は現在のマクロを使用したい

上記のような条件で、各ブック共通のマクロの作成を御教示御願い致します

投稿日時 - 2006-03-01 11:28:10

QNo.1999231

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。
回答が付かないようなのでちょとサンプルを。。。

-------------------------------------------
Sub AllProtect()
 Dim Sht As Worksheet
 For Each Sht In Worksheets
   Sht.Protect Password:="123"
 Next Sht
End Sub
--------------------------------------------

Sub AllUnProtect()
 Dim Sht As Worksheet
 For Each Sht In Worksheets
   Sht.Unprotect Password:="123"
 Next Sht
End Sub
----------------------------------------------

Protectメソッドの他の引数は適宜にセット。

以上です。
 

投稿日時 - 2006-03-01 14:20:22

お礼

御回答有難う御座いました。

これで手数が省けます。

感謝いたします。

投稿日時 - 2006-03-01 15:47:43

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問