toevoeging VBA-code BeforeDoubleClick Range ....

[jan excel]

Hallo Experts,

Met onderstaande script kan ik in een werkblad in elke cel dubbelklikken om deze te omlijnen.
Echter ik wil dat dit alleen mogelijk is voor range G2:G55.
Dus als er in een andere range wordt dubbel geklikt mag er geen omlijning komen.
Wie kan mij helpen aan de juiste script hiervoor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


ActiveSheet.Unprotect Password:="my password"
Target.BorderAround , xlThin, xlColorIndexAutomatic
ActiveSheet.Protect Password:="my password"
End Sub

alvast bedankt.
Jan Evers.

 

[edmoor]

Even uit het hoofd, probeer deze eens:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(ActiveCell, Range("G2:G55")) Is Nothing
        ActiveSheet.Unprotect Password:="my password"
        Target.BorderAround , xlThin, xlColorIndexAutomatic
        ActiveSheet.Protect Password:="my password"
    End If
End Sub

 

[Warme bakkertje]

Waarom niet

If Not Intersect([COLOR="#FF0000"]Target[/COLOR], Range("G2:G55")) Is Nothing

En als laatste regel

Cancel = True

zodat de cursor NIET in de cel blijft steken.

 

[jan excel]

Hoi Edmoor en WarmBakkertje,

Bedankt voor jullie input, het werkt nu zoals ik wil.


groet,
Jan

 

[edmoor]

Graag gedaan
En @rudi:
Het werkt allebei maar qua netheid heb je helemaal gelijk :thumb: