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

Please Login or Register  to view this content.

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.