Timer and timed close of a spreadsheet

I have within my workbooks a procedure that if the book has not been touched for an hour it auto saves and closes.

My Issue: What I want to do is either

1. Have a count down timer counting down on the status bar from 60 minutes to 00, which upon reaching 00 will trigger the close event, without any intervention i.e. i don't want a message box to appear as it doesn't now.

2. If the workbook is touched, then the clock resets to 60 minutes

or

1. Have a auto closing message box pop up with 10 minutes to go to say that this workbook will close in ten minutes, and then count down the time.

2. Again reset the timer if it is used.

I basically want to have the countdown time visible, but without having any intervention from users in starting or stopping it other than using/not using the sheet.

Most of the solutions i have found seem to have some form of user intervention, i.e. messagebox with yes no buttons.

Leith

Cheers for this, i will give it as go and see how i get on.

Below is the code that i am using, i have added the bits from yours and added the module, this works fine, it counts down from 10 minutes to 0, the problems i am having.

1. If i add the MouseMonitorOff into the auto close, it just closes the statusbar at the bottom or does nothing.

2. If i add it to the Workbook_BeforeClose, it does nothing.

I guess what i need, and i can't seem to get the coding right, is exaclty what i have but if it closes because the time is up, it just saves closes, if however the user closes the workbook, then it ask if they want to save the changes, any help would be greatly appreciated

Please Login or Register  to view this content.