Cellen blokkeren op basis van variabele waarden

[LEWA]

Beste allen,

In een document heb ik middels een checkbox de mogelijkheid geboden om iets aan of uit te zetten.
Nu moeten sommige mensen - afhankelijk van hun functie - deze checkboxes kunnen aan- en uitzetten.
Sommige personen mogen slechts een selectie van die boxes aanvinken.

Met behulp van VBA heb ik het volgende gerealiseerd:

Sub Rechten_01()

ActiveSheet.Unprotect Password:=""

If Range("EO4").Value = 0 Then
Range("EP4").Locked = True And Range("EP4").Text = "ONWAAR"
Else
Range("EO4").Locked = False
End If

ActiveSheet.Protect Password:=""

End Sub

De code werkt echter niet correct.
Als ik bepaalde rechten niet heb, kan ik evengoed de boxes aanvinken waar ik geen recht toe hoor te hebben.
Hoe kan ik dit oplossen?

Ik heb totaal 14 checkboxes; ook 14 keer een dergelijke code ingevoerd.

Ik hoop dat jullie mij kunnen helpen.


Alvast bedankt!

 

[VenA]

Plaats even jouw documentje erbij. Dan is er misschien nog iets zinnigs over te zeggen.

 

[LEWA]

Toevoeging voorbeeldbestand

Bij dezen, in de bijlage, het voorbeeld.
Dit is niet het originele bestand.
Dit kan ik niet verstrekken i.v.m. privacy.

Korte toelichting: checkboxes in A, Overleggen in B.
Checkboxes zijn gelinkt met E.
De gele kolom moet gelocked worden als men niet aan de voorwaarde in D voldoet (=1).


Bekijk bijlage Voorbeeld.xlsx

 

[VenA]

Volgens mij staat er geen code in jouw voorbeeld en wat je wil ontgaat mij ook. Er zweven overal wat dingen maar wat wat is en hoe er bepaald wordt wie welke rechten heeft?