１つのシートではなく、１つのブックにある全てのシートを１回で保護するには？

こんにちは、みなさん!!

Q.シートを保護する際に、１つのシートだけではなく、ブックにある
全てのシートを一回ですべて保護する機能はありますか？なを、保護とは何も入力など一切いじれない状態の事です。

ご存知の方いらっしゃいましたらよろしくお願いします。

No.1 ベストアンサー 回答者： x0000x 回答日時： 2007/08/09 09:31

>全てのシートを一回ですべて保護する

マクロなら、以下です。
Sub ProtectAllSheets()
Dim st As Worksheet
For Each st In ActiveWorkbook.Worksheets
'パラメータの詳細は"Protect"にマウスを合わせ「F1」押下
st.Protect Password:="xx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub