Sub Sperren_neu()
Dim finden As Range
Set finden = Range("E4:NF4").Find(what:="36.KW")
finden.Offset(3, 0).Resize(23, 6).Locked = True
ActiveSheet.Protect Password:=2321, DrawingObjects:=False
End Sub

so? dann bekomme ich eine Fehlermeldung Laufzeitfehler 1004

Bin leider nur Anfänger und hab mir das meiste selbst irgendwie beigebracht. Deswegen weiß ich grad nicht weiter.