Tijd checkbox

[Tech8]

Beste leden,

In mijn vorige topic, stonden twee vragen,
daarvan is er één opgelost,
maar ik blijf nog achter met de tweede vraag.

In bijlage een nieuwe sheet, met de vraag.


Denk dat dit een vraag is voor VBA specialisten.

Thx, Tech8

 

[Haije]

Tech, als ik je bestand open krijg ik een melding over kringverwijzingen

 

[HSV]

In moduleblad.

Private Sub Worksheet_Change(ByVal Target As Range)
 Unprotect
  Cells.Locked = False
    If Cells(Target.Row, 5) <> "" Then Cells(Target.Row, 1).Resize(, 10).Locked = Cells(Target.Row, 7) <> ""
  Protect , 0, , -1, -1, -1, -1, -1, , -1, , , , , -1
End Sub