EXCEL blokkeren velden op in meerdere rijen

[key]

Beste Excel-/VBA experts,

Ik ben redelijk thuis in Excel echter niet zo met VBA scrips.
In een Excel bestand heb ik van rij 4 tot en met 204 meerdere cellen welke ik via een vergelijking in de cellen AD van deze rij waar Ja of Nee uitkomt laten blokkeren of deblokkeren.
Ik kom aan het volgende script:

If Sheets("Blad1").Range("AD4").Value = "Nee" Then
ActiveSheet.Unprotect Password:="Wachtwoord"
Sheets("Blad1").Range("J4").Locked = True
Sheets("Blad1").Range("K4").Locked = True
Sheets("Blad1").Range("M4").Locked = True
Sheets("Blad1").Range("O4").Locked = True
Sheets("Blad1").Range("Q4").Locked = True
Sheets("Blad1").Range("S4").Locked = True
Sheets("Blad1").Range("U4").Locked = True
ActiveSheet.Protect Password:="Wachtwoord"

Alleen is het bij dit script zo dat ik dit 200 maal moet kopiëren en aanpassen. Is er geen makkelijkere manier om als de formule uit cel AD(cijfer) een Nee komt de cellen van de zelfde rij worden geblokkeerd?

Het is mij bekend dat ik er nog een stukje onder dien te typen waar Ja ipv Nee staat en False ipv True.

Uiteraard heb ik al ruim gegoogled, maar ben nu op het punt dat ik het toch maar hier ga stellen.
Veel VBA scrips begrijp ik helaas niet, zodra ze te geavanceerd worden.

Alvast bedankt voor de moeite.

[ajakkes]

Wat je zoekt is een for loop die door je range loopt. En als je iets doet met activeCell.offset(1,0).locked=true ben je al een heel eind.

Zoek eens op 'every cell in range vba'