Locking dates after Date

[wildecoyote1966]

I have never used VBA or macros before

Is there a way I Can lock a cell after say a date

so I want to lock cells in Column H once the date in C1 is past the date in the corresponding cell in Column B. ie. H25 and B25

[Kaper]

Are you sure it is the right file (or the right explanation in the post)?
Columns you mention in text seem to be different than in a file.

[Eastw00d]

I am not sure if you want the cells in Column H blocked before mentioned date or after, so in this code I assumed "Before":

Please paste below macro in the code module of the worksheet ( to open by RightClick on the worksheet tab "Amort", and then click on "View Code" )

Please Login or Register  to view this content.

Cheers
Erwin

[wildecoyote1966]

Are you sure it is the right file (or the right explanation in the post)?
Columns you mention in text seem to be different than in a file.

Hi Kaper

Yes in Tab Amort. however I did make a mistake thank you cell reference A25 should be B25

I want the cell H25 to lock after the date in cell B25 passes the date in cell C1 and so on.

[wildecoyote1966]

I am not sure if you want the cells in Column H blocked before mentioned date or after, so in this code I assumed "Before":

Please paste below macro in the code module of the worksheet ( to open by RightClick on the worksheet tab "Amort", and then click on "View Code" )

Please Login or Register  to view this content.

Cheers
Erwin

Thanks Erwin.

That was very close. I need cell to lock after the date so entries can only be made on or before the date in column B.
That way entires can be made to see what happens after a date and not before

[Eastw00d]

Ok, so you need to change the range-statement line into these two:

Please Login or Register  to view this content.

Cheers
Erwin

[wildecoyote1966]

Hi Erwin

like this?

Please Login or Register  to view this content.

doesn't seem to have changed anything (probably me)

[Eastw00d]

Yes,
the code in this way unlocks all the cells before/above found date, and locks all cells below/after found date. (in the first code it was just the opposite)
But maybe you need first to unlock all your cells in column H first before trying, and please keep the rules of this forum by embedding you code into code-tags (it's the "hashtag" mark in the editing options above your writing.)

Cheers
Erwin

[wildecoyote1966]

Hi Erwin

I don't see the option to post code as you said. Maybe I'm to new.

Basically once the date in C1 passes the date in column B passes I want to lock the corresponding cell in Column H and the ones above it.
Can't change the past only the future

[Eastw00d]

Well, for me this works, please see attachment

Cheers
Erwin

[Kaper]

The merit part is handled by Eastw00d, so let me just show (screenshot attached) how to wrap CODE tags around the code to obtain such a result:

Please Login or Register  to view this content.

[wildecoyote1966]

Thanks Erwin

I however need the opposite please

Sorry but I don't understand how this works. Itried changing true to false and false to true but nothing seems to change

[AliGW]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are quite new here, I have done it for you this time.)

[wildecoyote1966]

yes Ali Kaper just showed me how. Thank you for doing it for me this time

[Eastw00d]

Sorry but I don't understand how this works. Itried changing true to false and false to true but nothing seems to change

So please upload the file where you tried changing this, I will look into this one.
cheers
Erwin

[wildecoyote1966]

Please Login or Register  to view this content.

Blocked everything from H38 down

and

Please Login or Register  to view this content.

made no difference to the first change

then I

Please Login or Register  to view this content.

removed NOT from If Not Intersect(Target, [c1]) Is Nothing Then

and I think it's working.