weil das
ActiveSheet.Protect Password:="4711"
nach dem Next kommen muss, sonst aktiviert er den Blattschutz nach dem ersten Schleifendurchlauf wieder.
Gruss Tor