Sub Protect_all()
   Dim WS As Worksheet
      For Each WS In Worksheets
         WS.Protect
      Next WS
End Sub

'Unprotect = Sheet protection remove