Auto Close code preventing access to taskbar

Hopefully this is an easy fix.

I am using the following code to auto save and close a workbook after it has been open for 15 minutes.

Please Login or Register  to view this content.

Due to it being ran as soon as the file is opened, it appears to prevent any Excel security warning message boxes from appearing first, in this case the "Do you want to make this file a trusted document?" does not appear until after the macro is manually stopped... I have a feeling that because of this, all functionality i.e. buttons on the toolbars, being able to close the file etc is lost. Is there a way to ensure warnings are displayed first?

I would guess because the procedure never gets out of this loop

Please Login or Register  to view this content.

until either the While statement is False or the code is manually stopped... regardless of 'events' firing, VBA code in any procedure is linear, executing line by line.

And closing any object while code in the Open event is executing is never a good idea.

Thanks. Is there a way to modify this code to start after any excel warnings are cleared? Or even just to start a set time after the file has been open would solve the issue, so if the code could begin to run 1 minute into the file being open - is this possible?

Have a look at the Application.OnTime method. This executes a procedure at a particular time. Plenty of examples around the place.

Thanks, it appears something like this would work for me:

Please Login or Register  to view this content.

With Workbook_Open() being the sub I would like to run after 15 secs.

Where would I paste the above code, within ThisWorkbook i.e. where the Workbook_Open() sub is, or would I paste in a Module?

The procedure passed to Application.OnTime must be a public Sub in a module.

You can add the OnTime statement to the Workbook_Open event. Have a look at a recent thread for an example: http://www.excelforum.com/excel-prog...ml#post4592489

Sorry not sure I understand fully, or if I do I can't seem to get it to work.

In Module1 I have:

Please Login or Register  to view this content.

In ThisWorkbook I have:

Please Login or Register  to view this content.

I'm receiving an Invalid Use of Property error in Module 1

I changed the "." to a "_" in application on time as the "." was bringing back an error for some reason

Also found this code which I believe will do the same thing:

Please Login or Register  to view this content.

I don't understand what I need to put within the speech marks, if someone could explain it would be most helpful.

My ThisWorkbook code is in post #1... this is what I wish to call/start but after 10secs rather than as soon as the file is opened

Originally Posted by FRC1

Isn't the procedure I wish to run in this instance happen to be in ThisWorkbook though rather than a Module?

Please see

Originally Posted by Post #9

The procedure to run must be a public Sub in a module

Originally Posted by Post #6

The procedure passed to Application.OnTime must be a public Sub in a module.

The call to Application.Ontime is in the Workbook_Open event.

Ok so:

ThisWorkbook =

Please Login or Register  to view this content.

Module1 =

Please Login or Register  to view this content.

Tell you what, it's lunch time - I'm out of here. Sample workbook attached.