Bij verandering van inhoud van een cel vervalt werkbladbeveiliging

In mijn Excel gebruik ik een Keycell (A7) om een actie te verrichten.
Bij die actie wordt als eerste de werkbladbeveiliging uitgezet, en als laatste weer aangezet.

Wanneer ik de inhoud van één van de witte cellen verander vervalt plotseling de werkbladbeveiliging.
Kan iemand mij helpen dit te voorkomen?

wachtwoord = "x"

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Einde
' Application.ScreenUpdating = False

'Werkblad beveiliging uitzetten
Dim BladBeveiligd As Boolean
BladBeveiligd = ActiveWorkbook.ActiveSheet.ProtectContents
If BladBeveiligd Then ThisWorkbook.Sheets("INVOER").Unprotect Password:=wachtwoord

' Verandering van Keycell start actie
Dim KeyCells As Range
Set KeyCells = Range("_ProductKeuze")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Filteren
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("D11200")
If xRg.Value = "0" Then
xRg.EntireRow.Hidden = True

Else
xRg.EntireRow.Hidden = False
End If
Next xRg


'Werkbladbeveiliging terug in oorspronkelijke staat
Einde:
If BladBeveiligd Then InvoerLock_Click
End If
Application.ScreenUpdating = True

End Sub

Maak er eens: Selection_Change van?

Beste Maarten,
Dank voor je snelle reactie.
Hoe maak ik er Selection_Change van?

Klik ergens in je code.
Rechts bovenin zie je een veld met de code naam.
Open deze, kies voor Selection_Change en plak daar de code in.
Uiteraard de oude verwijderen of tijdelijk uitschakelen als test.

Er staat een End If niet goed.
Maak er dit van:

Dank je Edmoor,
De "End if" stond inderdaad verkeerd.

Code werkt bij ELKE verandering

Geacht forum

Nadat de 'End if' op de juiste plaats is gezet werkt de code prima,
Alléén kom ik er nu achter dat de code OOK geactiveerd wordt als er een ander pulldown-menu gebruikt wordt.

Hoe kan ik ervoor zorgen dat de code ALLEEN geactiveerd wordt wanneer de range "_Productcode" (cel A7) veranderd?

Dat komt omdat die code in de Worksheet_Change staat en er geen controle is op wat de actieve cel (Target) is.

Is er een manier om dat toch voor elkaar te krijgen?

Simpel.
Zie bijgevoegd document in #8.

Dit werkt prima. Je bent een kanjer!
Kan ik in plaats van de Target.Address verwijzing naar "A7" verwijzen naar "_ProductKeuze"?

Je kan er ook direct naar verwijzen, maar waarom zou je dat doen?
Je wilt weten welke cel de _change heeft getriggert en dat is het range object met de naam Target.

Nog even voor je gekeken.
Wellicht dat je dit bedoelt:

Beste Edmoor: Dit is precies wat ik bedoel. Graag verwijst ik vanuit VBA naar cel-namen omdat bij verplaatsing binnen Excel dan alles blijft werken.
Hartelijk dank voor je hulp!