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

残念ながらマクロを使わないとできないようです。 ご参考までにわたしは次のマクロ(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