Application Data.xlsm

I want the Date Column to be locked once the date is auto added (added once and stay forever)

In my codes, I've tried using Cells.Protect (deleted later) and at present using the codes (see in the file)

Could anyone figure out why the codes cannot protect Column Date values?