Blattschutz alle Blätter in Mappe

Sub Blattschutz_map_on()
Application.ScreenUpdating = False
Dim wss As Worksheet
For Each wss In Worksheets
wss.Protect = "xxx"
Next wss
Else
Application.DisplayAlerts = True
End If
Application.ScreenUpdating = True
End Sub