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

'Unprotect = Blattschutz aufheben