Cellen blokeren op basis resultaat formule

[Dedeke]

Hallo,

Een vraagje i.v.m. office 365 Nederlandstalig.

Is het mogelijk om cellen te blokkeren op basis van de waarde van een andere Cel.
In een tabel"TblAct1" op werkblad "Act1" heb ik de kolommen I / J /K cel 4 tot 31.
In dezelfde tabel heb ik de kolommen R/S/T 4tot 31 waar de waarde "Used" of "Free" komt in te staan op basis van een formule zoals deze:=Tabel1[@[Bon1 used/Free]].
Het werkblad is standaard beveiligd met wachtwoord waarbij enkel de cellen R4:T31 selecteerbaar zijn. Echter zou ik nu toch op basis van de waarde in de kolommen R/S/T de overeenstemmende cel in kolommen R/S/T willen blokkeren. Vb in R4 staat "used" dan moet I4 geblokkeerd worden. S5="Used" J5= blocked

Ik wil absoluut niet ten rade gaan bij AI, maar bij echte kenners. Heb enige notie van VBA.
Alvast bedankt voor enige hulp

 

[AD1957]

Plaats aub een voorbeeldbestand.

 

[Dedeke]

Vrij laat maar bij deze een afgespekte versie

 

[Warme bakkertje]

Aangezien een wijziging in een formule geen Event triggert zoiets misschien ?
Plaats de code in de Bladmodule van Act1.

Private Sub Worksheet_Activate()
    ActiveSheet.Unprotect
    For Each cl In Range("R4:T31")
        cl.Offset(, -9).Locked = cl.Value = "Used"
    Next
    ActiveSheet.Protect
End Sub