全シート保護解除マクロ
Sub 全シート繰り返し()
Application.ScreenUpdating = False
Dim Sht As Worksheet
For Each Sht In Worksheets
Sht.Select
Call 保護解除
Next Sht
Application.ScreenUpdating = True
End Sub
Sub 保護解除()
ActiveSheet.Unprotect
End Sub