Hoi, ik zou nogmaals jullie hulp willen vragen.
Ik heb een code gevonden waar de actieve cel in een ander kleurtje wordt gezet
maar dit werkt niet als je het Blad beveiligd.
Je kan dit omzeilen door Celeigenschappen ook mee te selecteren maar ik wil eigenlijk niet dat ze de celeigenschappen kunnen aanpassen.
De code voor de highlights die ik vond en die ook werkt
is:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Note: Don't use if you have conditional
'// formatting that you want to keep
'// On error resume in case user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex
'// Leave On Error ON for Row offset errors
If iColor < 0 Then
iColor = 36
Else
iColor = iColor + 1
End If
'// Need this test in case Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
'// Kleur de actieve cel
With Range(Target.Address) 'Rows(Target.Row)
.FormatConditions.Add Type:=2, Formula1:="WAAR" ''WAAR of TRUE
.FormatConditions(1).Interior.ColorIndex = iColor
End With
End Sub