' Alt F11 to get to scripts.  Alt F8 to run one.

Sub ProtectAll()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
	ws.Protect
Next ws
End Sub

Sub UnProtectAll()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
	ws.Unprotect
Next ws
End Sub