lacht bitte net aber mir fiel nix anderes ein.....es funktioniert auf jeden Fall einwandfrei.....aber interessehalber....wie gehts einfacher?...:))
With Sheets("Daten")
.Unprotect Password:="Ja"
.Range("B65536").End(xlUp).Offset(2, 0).Locked = True
.Range("B65536").End(xlUp).Offset(2, 1).Locked = True
.Range("B65536").End(xlUp).Offset(2, 2).Locked = True
.Range("B65536").End(xlUp).Offset(2, 3).Locked = True
.Range("B65536").End(xlUp).Offset(2, 4).Locked = True
.Protect Password:="Ja"
End With
Danke
Peter S