denke wss.protect stimmt nicht dort bleibt Makro stecken
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
Danke
gruss helena