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

質問

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

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

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

回答No.1

x0000x · ベストアンサー

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

マクロなら、以下です。
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