Ik wil bij een blad de beveiliging instellen zodanig dat de gebruiker geen kolom kan toevoegen.
Echter wanneer ik deze instelling invoer blijkt dit niet te werken :
Blijkbaar belemmerd de rode tekst deze beveiliging.
Bedankt voor mogelijke oplossing. (Excel 2003)
Echter wanneer ik deze instelling invoer blijkt dit niet te werken :
Code:
Sub Worksheet_SelectionChange(ByVal target As Range)
ActiveSheet.ScrollArea = "A4:R1000"
If Intersect(target, Range("A4:R1000")) Is Nothing Then Exit Sub
Range("A4:S1000").Interior.ColorIndex = xlNone
[COLOR="#FF0000"]Range("A" & target.Row & ":R" & target.Row).Interior.ColorIndex = 4[/COLOR]
End Sub
Blijkbaar belemmerd de rode tekst deze beveiliging.
Bedankt voor mogelijke oplossing. (Excel 2003)