I need to adjust VBA file that locks cell after a date by 3 lines

[wildecoyote1966]

I have a VBA code that locks cells in a column once today reaches a date.

Ie on the Amort Tab

The cells in Column J lock after The date in Cell D5 (TODAY()) passes the date in Column C.

for example:
Cell J44 would lock after D5 (TODAY()) passes C44 (yesterday)

Current VBA

Please Login or Register  to view this content.

It currently locks at cell J41

[bebo021999]

Worksheet_change even works for input change only, not formula.
cell D5 contains formula, it will not be fired automatically with new day.
2 options:
1) Put code in Worksheet_calculate even. It may reduce the speed.
2) Put code in worksheet_active even.

P/S: You said column J, but in code, refer to column I. What is correct?

[wildecoyote1966]

Worksheet_change even works for input change only, not formula.
cell D5 contains formula, it will not be fired automatically with new day.
2 options:
1) Put code in Worksheet_calculate even. It may reduce the speed.
2) Put code in worksheet_active even.

P/S: You said column J, but in code, refer to column I. What is correct?

Hi

Column J is the correct column.

I have no idea about VBA and I don't understand it. Someone on here wrote it for me but I had to change the sheet around.

[bebo021999]

Right click in sheetname (Amort) / view code/ choose worksheet then activate (from 1 to 4 in the image)

P/S: attachment included

[wildecoyote1966]

says Invalid Attachment specified. If you followed a valid link, please notify the administrator

can you just post the code please

[bebo021999]

says Invalid Attachment specified. If you followed a valid link, please notify the administrator
can you just post the code please

Attchment was provided in that post.

[wildecoyote1966]

Attchment was provided in that post.

I did that and still exactly the same

[wildecoyote1966]

Can anyone fix this for me please?

[bebo021999]

I did that and still exactly the same

No, you did not.
It still under "General" and "Declerations".
In General, choose "Worksheet" and in "Declerations" choose "calculate".

[wildecoyote1966]

In General, choose "Worksheet" and in "Declerations" choose "calculate".

Still the same