Hoi
Domme vraag misschien,
Ik heb in een werkblad een VBA code per worksheet, om bij het plaatsen van een kruisje in een andere cel een datum en tijd te plaatsen.
Dit werkt prima, uit een andere excel heb ik een code gehaald waar ik bij verstrijken van een datum op een werksheet cellen worden beveiligd.
Ik heb alleen de range aangepast.
Maar ik krijg beide codes niet samengevoegd op 1 exelsheet. Of de ene code doet het niet goed, of de andere niet.
Ik wil dus als de datum verstreken is dat de cellen geblokkeerd worden. als de datum nog niet gepasseerd, dan mogen de kruisjes gezet worden.
Domme vraag misschien,
Ik heb in een werkblad een VBA code per worksheet, om bij het plaatsen van een kruisje in een andere cel een datum en tijd te plaatsen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("C:C"), Target)
xOffsetColumn = 52
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
Set WorkRng = Intersect(Application.ActiveSheet.Range("P:P"), Target)
xOffsetColumn = 52
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:="xxx"
If Range("O2") < Date Then
Range("C7:D65,F7:G65,I7:J65,L7:N65,O7:P65").Locked = True
Range("O2").Locked = False
Else
Range("C7:D65,F7:G65,I7:J65,L7:N65,O7:P65").Locked = False
End If
ActiveSheet.Protect Password:="xxx"
End Sub
Maar ik krijg beide codes niet samengevoegd op 1 exelsheet. Of de ene code doet het niet goed, of de andere niet.
Ik wil dus als de datum verstreken is dat de cellen geblokkeerd worden. als de datum nog niet gepasseerd, dan mogen de kruisjes gezet worden.