Excelで複数シートの保護を一気に解除する方法はありませんか？

質問

WinXPでExcel97を使っています。
複数シートの保護を一気に設定/解除することはできますか？
ブック内のすべてのシートを対象にして、保護をかけたり解除したりしたいと思います。シート数が１０以上になるので、一つ一つやるのは手間なのです。
いい方法があればよろしくお願いいたします。

回答No.1

gatyan · ベストアンサー

マクロを使うしかないかも。

たとえば、下のようなマクロを使ってまとめて解除／設定するとか。

Sub AllProtect()
Dim sht As Worksheet

For Each sht In Worksheets
sht.Protect
Next sht

End Sub

Sub AllUnprotect()
Dim sht As Worksheet

For Each sht In Worksheets
sht.Unprotect
Next sht

End Sub

お礼

なるほど。そういう手段になるのですね。
マクロは使ったことがないのでちょっと腰が引けます。
１０個なのでがんばってマウスを動かしたいと思います。
ありがとうございました。