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

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

No.1 ベストアンサー 回答者： MSZ006 回答日時： 2002/04/25 09:48

残念ながらマクロを使わないとできないようです。

ご参考までにわたしは次のマクロ(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

この回答へのお礼

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

お礼日時：2002/04/25 17:09