Oplåsning og farvning af celle

Jeg skal have lavet det sådan at når der er sat X i celle d6, så skal celle c6 blive oplåst, men kun den celle.
Resten skal forblive låst. Indtil videre har jeg denne kode:

If Range("d6") = "x" Then
With ActiveSheet
      .Unprotect Password:="brm"
  End With

Så det må blive noget med at hele arket skal låses op (ligesom ovenstående kode) og så skal "låsen" fjernes på c6, cellen skal farves i farve 35 og så skal regnearket beskyttes igen.
Jeg kan ikke få det til at virke.

Det modsatte skal jo så også ske når X fjernes igen