Schreibschutz - einzelne Zeilen zugreifbar machen

Passwortschutz geht so:
ActiveSheet.Protect Password:="test"

Aber wie kann ich einzelne Zeilen davon ausschließen??

Danke schonmal!!!

Bitte am besten gleich n' kleines Stückchen Code dazu (-;