Stop another code from executing

I have a module that runs a code protecting sheet if date in cell A1 is 2 months older than NOW.

10 sheets in the workbook call on this code if sheet is active.

I am wanting to add a form button that would would unprotect all sheets AND stop this module from executing. Of course I will want to also add another form button to then protect sheets back and resume the original execute code.

Not sure how the coding would look......thanks!

Hi JyothiGrace,

Attached is an example of doing this.

Hope this helps

Thanks Cheese for such quick reply.

I'm fairly new to VBA so apologize for stupid question. Would I add another module to include your codes or replace my existing ones?

The file was intended for you to see how it is being done and try to apply it to your code. I have kept the code very simple so you can follow the logic of how to do it.

There are three Sub's in Module1:
sub 'mBox' is the sub that we are going to prevent from running
sub 'ProtectAll' is the sub that protects all sheets and stops 'mBox' from running when button 'Hello world message box' is pressed
sub 'UnprotectAll' is the sub that unprotects all sheets and allows 'mBox' to run

I suppose you need to concentrate on the Global 'tStop' and hw it has been used - this is the part that allows/ prevents 'mBox' from running.

'Hello world' button is the main sub
'Protect all' button prevents the hello world message box & protects all sheets
'Unprotect all' button allows the hello world message box & unprotects all sheets

I tried to duplicate it on my actual sheet but failed miserably.

Module 1 has 3 subs. First sub (LockCells) is the one which locks all cells based on today's date compared to date in A1.

Second sub (UnProtectALL) is attached to first button in Mission Control tab which should ideally halt first sub from executing and unprotects sheets 2, 3, and 4.
Last sub (ProtectALL) attached to second button in Mission Control tab re-executes first sub and then protects sheets 2, 3, and 4.

Password is "password"

I am aware that my script is not elegant but more importantly, some major pieces are missing.

Any thoughts?