code to wait for 30 seconds?

[johnandrews]

Please Login or Register  to view this content.

This is meant to run when the file is opened, wait 5 sec then give me the message box. What am I missing?

Context: Now I have a clearer idea what I'm trying to achieve. Longer term I'm attempting to make a file automatically save and close a minute after it has been opened. I'm beginning simple so I stay on top of it.

[bsalv]

Please Login or Register  to view this content.

[ragulduy]

I think to use sleep you need to define it as a function, I can't remember what the library to reference is.

You can just use:

Please Login or Register  to view this content.

though, don't think you need the sleep function unless you want milliseconds.

Edit: I remembered:

Please Login or Register  to view this content.

[apo]

Try this..

Add this to your Workbook OPen event..

Please Login or Register  to view this content.

Put this in a Module..

Please Login or Register  to view this content.

[johnandrews]

Yudlugar: I get 'runtime error 13, type mismatch' and end, debug or help.
Bsalv: Thanks, but can I do it without the frozen egg timer? So the user can still use the file during the wait?

[johnandrews]

Apo: I'll try but I'll have to figure the interface.
Edit: That works, Apo however my object is to let the user have a short time to edit the file which then shuts ready or not. 'Sleep' freezes Excel entirely until it's up :-(

[ragulduy]

@johnandrews - Apo has given you the solution I believe, I forgot you can't put the sleep lib bit in an object module.

[apo]

Hi..

You're right.. try this 'workaround'...

Please Login or Register  to view this content.

[bsalv]

you can use "ontime" to create a job in the future.
For example you want to close your workmap without saving. This can be done by the macro "shutdown"
But suppose that you want it after 30 seconds and meanwhile use the workmap, then you run the macro "ShutDownAfter30Sec"

Please Login or Register  to view this content.

[johnandrews]

Apo, that works ;-)
Bsalv: My Excel doesn't like

Please Login or Register  to view this content.

Is there another code for save & close?

[bsalv]

make the parameter savechanges 1 and it 'll save and close

Please Login or Register  to view this content.

[johnandrews]

Please Login or Register  to view this content.

...works to save and shut, but I forgot I had this set to run when the file opens. Try and open it, it shuts again. Only I would do that...

[johnandrews]

Please Login or Register  to view this content.

Now I'm even more confused. Why, with this code, does it open and shut without waiting? To edit it, I disabled Macros in the Trust Centre.

[bsalv]

the open-macro in ThisWorkbook 'll call the macro "ShutDownAfter30Sec".
Now you can work in the workbook, but after 30 sec the workbook 'll close and save the changes.

[johnandrews]

That works.