Excel Session timer 10min splash screen Warning then 15min force close

Hi, The purpose of this macro was to control the time this excel file was open because many users modify it. I decided to create a splash screen (userform) to display a message to the user saying "your session time of 15min is up"

The problem is, the first time I open the file everything works fine. But after I close it (just the workbook not excel), It opens itself for some reason and gives me a debug error message. Perhaps the timer is never stopped?


I call "StartTimer10min" on workbook open and "StopTimer" before workbook close. Thanks for the help

Here is the code in my module:

Please Login or Register  to view this content.

Post the ThisWorkbook code so we can see the whole thing?

You also have to unschedule KillForm in the close event.

When you unschedule, you have to pass the time it was scheduled, just like for the other routine.

It works! So i added an extra part that closes the workbook after 15min, so the splash screen will serve as a warning that 10min are up and 5min remaining before a save close event is forced.

This will prevent the users from "hogging" the file.

here's the final working code

In workbook:

Please Login or Register  to view this content.

In my module:

Please Login or Register  to view this content.

userform code:

Please Login or Register  to view this content.

Thanks again

Where do you unschedule KillForm?

In the Initialize event, you schedule Killform. In the Close event, you're not passing the time it was scheduled. Now + 7 minutes now is not the same as Now + 7 minutes later.