ByVal Target As Range

[Verwijderd]

Als ik de volgende sript gebruik ( die trouwens werkt)
en ik doe de beveiliging aan werkt deze script niet meer wat doe ik fout

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim oRow As String
Dim oCol As String
Dim DataRg As Range
Dim A As Range


Dim AllRg As Range

Set DataRg = Range("B2:CJ230")
Set AllRg = Range("A1:CJ230")

If Target.Cells.Count > 1 Then Exit Sub

If Not Application.Intersect(Target, DataRg) Is Nothing Then
DataRg.Interior.ColorIndex = xlNone
oRow = "B" & Target.Row & ":" & Target.Offset(0, 0).Address
oCol = Target.Offset(2 - Target.Row, 0).Address & ":" & Target.Offset(0, 0).Address
Range(oRow).Interior.ColorIndex = 6
Range(oCol).Interior.ColorIndex = 6
Else
DataRg.Interior.ColorIndex = xlNone
End If

End Sub

[hing]

De beveiliging zorgt er voor dat dit soort scripts en macro's worden uitgeschakeld. Dus het is logisch dat het daarna niet meer werkt.

[Verwijderd]

dus een beveiliging kan niet

[hing]

Voor zover ik weet niet (correct me if I'm wrong, people!)
Wat je eventueel zou kunnen doen is het script buiten de VBA omgeving van excel om draaien in vbscript of in VB oid. dat zou wel goed moeten gaan.

[Boss]

Je verwart twee beveiligingen:

1. de script beveiliging die voorkomt dat VBA scripts gedraaid kunnen worden
2. de beveiliging die voorkomt dat iemand jouw code kan editten

Die eerste kan je aanzetten en vervolgens je code niet meer runnen maar wel editten.
Die tweede kan je aanzetten en vervolgens je code wel runnen maar niet editten.