Opgelost 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

 

[Tech8]

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

Raar, ik heb dat hier niet.

Bericht automatisch samengevoegd: Vandaag om 09:03

In moduleblad.

Ik heb dat in de sheet gezet, maar doet niets.

 

[HSV]

Dan heb je het er niet goed in gedaan.

 

[Tech8]

Dan heb je het er niet goed in gedaan.

Is OK, werkt perfect.
Kan ik het paswoord ook aanpassen?

 

[HSV]

unprotect "wachtwoordhier"
protect "wachtwoordhier", 0, , -1, -1, -1, -1, -1, , -1, , , , , -1

Bericht automatisch samengevoegd: Vandaag om 11:12

Haal die regel Cells.Locked =false er eens uit.
Ik heb hier geen Excel tot mijn beschikking.