Cel moet in kleur veranderen bij aanwijzing van deze cel

Status
Niet open voor verdere reacties.
S

sjeeke

Gebruiker
Lid geworden
25 sep 2013
Berichten
37
Bij het aanwijzen van een cel moet deze kleur kleuren. Dit werkt met de huidige VBA code.

afb1.jpg

Echter, wanneer ik het blad beveilig (omdat niet alle cellen toegankelijk moeten zijn voor aanpassingen), krijg ik een foutmelding

afb2.jpg

Moet ik in de VBA elke keer de beveiliging opheffen wanneer ik een cel aanroep? Zoja, hoe pas ik dit toe in de reeds bestaande VBA-code.
Wanneer ik namelijk elke keer de beveiliging eraf wil halen, cel selecteren en dan de beveiliging er weer op wil zetten, kan ik TOCH de “beveiligde” cel aanpassen, ondanks er bovenin de balk alweer staat dat het blad beveiligd is.

afb3.jpg

Het bestand is ZONDER (blad)beveiliging geupload, zodat de werking duidelijk(er) is.
De bedoeling is dat cel D3 niet beveiligd moet zijn.
 

Bijlagen

  • cel_kleuren.xlsm
    18,6 KB · Weergaven: 37
Doe het eens zo:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet
        .Unprotect
        .UsedRange.Interior.ColorIndex = 2
        Target.Interior.ColorIndex = 3
        .Protect
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan