VBA for locking cells if not todays date

Dear All,
I am new to this site and new to excel VBA as well. Learning a lot through this forum. Thanks to all the contributors.

I need someone to help me with a code for locking rows if adjacent cell does not contains todays date. I have seen many codes already written on this requirement but none seem to work for my sheet. I have attached my sheet for reference and working.

The VBA has a code that was written for someone on this forum. I used it with few tweaks as per my requirements but didn't work.

The column D picks up todays date automatically via the VBA code when ever there is entry in Column A for same row. I want to lock these entries (but still allow filtering) when code finds the date in column D is not todays date or passed date to be more precise.

Thanks and appreciate your help

I managed to find this below code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("d" & Selection.Row).Value <> Date Then
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        MsgBox ("Only edit today's row please.")
    ElseIf Range("d" & Selection.Row).Value = Date Then
        ActiveSheet.Unprotect
        ActiveSheet.EnableSelection = xlNoRestrictions
    End If
End Sub

but it locks the sheet on click or selection change. I want it to lock rows that don't have todays date and allow user to work rows that have todays. right now its locking everything.

Thanks for any help.