シートをまとめて保護・解除したい

質問

エクセル９７、２０００を使っています。
エクセルもシートが多くなると、その保護と解除が面倒で困っています。
いちいちシートを選択して保護と解除をしなければなりません。
マクロなどを使わずに、全てのシートを一度に保護・解除する方法はないでしょうか。シートの中にも保護してるセルとそうでないセルがあるので
ブックを保護するわけにもいきません。

回答No.1

MSZ006 · ベストアンサー

残念ながらマクロを使わないとできないようです。
ご参考までにわたしは次のマクロ(VBA)を使っています。

Sub 全シート保護()
　　　Dim c As Object
　　　Application.ScreenUpdating = False
　　　For Each c In Sheets
　　　　　　c.Protect
　　　Next c
　　　Application.ScreenUpdating = True
End Sub

Sub 全シート保護解除()
　　　Dim c As Object
　　　Application.ScreenUpdating = False
　　　For Each c In Sheets
　　　　　　c.Unprotect
　　　Next c
　　　Application.ScreenUpdating = True
End Sub

お礼

ＭＳＺ００６さん、どうもありがとうございます。
時間をかけてのアドバイスに感謝いたします。
教えていただきましたとおりに利用させていただきます。