VBA udfordring

Hej alle sammen.

Nogle der kan hjælpe. Jeg ville rigtig gerne have denne VBA-kode låser celler A7 i arket Bestilling, og låser cellerne D9 til D3669 i arket Prisliste. Eller om der skal en kode i hver.

Hilsen
Klaus W



Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static Passed As Boolean
    Dim P$
        If Target.Address <> "$A$7" Or Passed Then Exit Sub
    Do
        P = InputBox(vbLf & vbLf & "Indtast adgangskode for at ændre denne celle:", "Begrænset adgang")
        If P = "" Then Target(1, 2).Select: Exit Sub
    Loop Until P = "A096"
        Passed = True
End Sub