Macro to shut down excel with warning message

Hi

I know this has been asked before with many solutions, but I am unable to find the specific answer to what I need.

I would like to have some VB code that prompts the user after 20mins of inactive use in an excel workbook that they have the option to either continue using the workbook "Yes/No". If "Yes" is selected then the counter resets itself to zero and recounts to 20mins allowing the user to continue working, but if the user is not at their desk and nothing is selected then the message will only appear for 30 seconds, save then close the workbook, allowing others to access it.

I have found codes that do part of what I need but not exactly what I am after.

Any help would be greatly appreciated

Many Thanks

Sorry, dont this really answers my question? I dont understand what you have put.

Hi,
Thankyou both for replying but unfortunatley neither of these actually worked...unless I am doing something wrong.

RoyUK--Do I paste this code straight into a module? Or do I need to split any of the code and place in "This workbook"?

Many Thanks

I found this code elsewhere and it virtually does what I want but the only problem is that the warning message does not give the option to continue working on the sheet, it just shuts down after x amount of seconds! Does any know how to amend the code to add in the Yes/No buttons to give the option to reset the timer or just shut down, as it currently does...

This Workbook

Please Login or Register  to view this content.

Module1

Please Login or Register  to view this content.

Thanks again.