Verrouiler/bloquer 1 cellule contenant une liste déroulante

Bonjour,

j'ai essayé de trouver la réponse à mon problème sur le forum sans succès.
Aussi j'espère que ma question ne sera pas un doublon.

Dans mon fichier dans une feuille qui se nomme "Autodiagnostic" en cellule D30 j'ai une liste déroulante, si le choix en D30 est "0" (zéro), j'aimerais que la cellule E30 soit bloquée en écriture (comme verrouillée) ou toute autre solution qui puisse vous paraître intelligente à partir du moment où l'on ne peut pas y inscrire quelque chose. Je précise que la cellule E30 est aussi une liste déroulante !!! Donc on ne peux pas passer par la validation de données pour verrouiler, enfin je crois.

J'ai essayé ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Range("D30" & Target.Row) = "0" Then
ActiveSheet.Unprotect 'Cesap2017
ActiveSheet.Range("E30" & Target.Row).Locked = True
ActiveSheet.Protect 'Cesap2017
End If
End Sub

Mais cela n'a pas fonctionné, je pouvais toujours choisir un item de ma liste en E30

J'ai aussi une autres demande :
Imaginons qu'une cellule A2 contienne une liste déroulante de 10 items différents et en A10 j'ai exactement la même liste provenant de la même plage seulement, j'aimerais que le choix de la liste en A2 n'apparaisse pas en A10 et que donc nous nous retrouvions avec 9 choix pour cette deuxième, je veux le faire pour 5 choix sur donc 5 listes déroulantes.

Merci infiniment pour votre aide et j'espère avoir été claire.

Amicalement,
Fizia