Passwortabfrage ohne Blattschutz zu umgehen, wie?

Private Sub Worksheet_SelectionChange(ByVal target As Range)
'   Dim a
'   If Not Intersect(target, Range("F13:AP90", "J12")) Is Nothing Then
'    Application.EnableEvents = False
'      a = InputBox("Passwort bitte? - (Keine Zahlen)")
'     If a  Range("Y5") Then MsgBox "Änderungen nur mit gültigen PW möglich",  _
Application.Worksheets("001").Range("J5").Select
'  End If
' Application.EnableEvents = True
'End Sub

Hier wird nun aber jede Zelle im definierten Bereich permannent überwacht was wiederum zu einer nervigen ständigen PW Eingabe führt.
In Zelle J12 darf der Abgefragte Schutz geändert werden.
Wie könnte oder müsste der Code aussehen um die permannente Zellüberwachung mit einer einmaligen PW Eingabe abzuschalten wobei aber spätestens beim Blattwechsel dieser wieder eingeschaltet wird.
Ich hab schon darüber nachgedacht den Blattschutz umzudrehen und die permannente Zellabfrage als Formelschutz zu missbrauchen. Aber ehrlich gesagt gefällt mir diese Variante nicht so richtig. Ist eher so als Plan D anzusiedeln.
Bin für jede Hilfe Dankbar.
Gruss Thomas