Opgelost Active cel kleuren

[Tegno]

goede morgen

ik gebruikte deze code om een active cel te kleuren.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Cells.Interior.ColorIndex = xlColorIndexNone
 ActiveCell.Interior.ColorIndex = 28
 End Sub

nu heb ik mijn sheet beveiligd en werkt de code niet meer.
kan hij aangepast worden dat hij blijft werken in de niet geblokkeerde cellen?

Alvast dank voor het lezen van mijn vraag.

 

[edmoor]

Zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Unprotect "Je Wachtwoord"
    Cells.Interior.ColorIndex = xlColorIndexNone
    ActiveCell.Interior.ColorIndex = 28
    ActiveSheet.Protect "Je Wachtwoord"
End Sub

 

[Tegno]

Edmoor dank je
Hier had ik nog niet aan gedacht
Het werkt.

 

[Tegno]

Beste Edmoor
Het werkt. Echter nu kan ik niet kopieeren binnen mijn sheet.
kan ik via een voorwaardelijke opmaak de achtergrond laten kleuren van alleen de active cel

 

[edmoor]

Dat je niets kan kopieeren heeft niks te maken met wat ik je gaf..
Stel de beveiligingsvoorwaarden goed in.

 

[Tegno]

Beste Edmoor
klopt helemaal.
nu zie ik een aantal problemen opgelost worden.
Dank je