Automatically shutdown and save file if idle for more than 15 minutes

Try it like this, with all code in the ThisWorkbook's codemodule except as noted:

Add a new public variable "dteTimeToClose" to store the time to close and a selection change event that re-schedules the closure based on the selection being changed

Please Login or Register  to view this content.

Add this to the Private Sub Workbook_Open() routine to initially schedule the close macro

Please Login or Register  to view this content.

And then add this Sub to a standard codemodule to actually save and close the workbook:

Please Login or Register  to view this content.

The attached is set to auto-close after 1 minute - for testing. See the code comments for where to change that time.

Note that the code is split between two code modules - one standard and the other is the ThisWorkbook's codemodule.

The code to delay the shutdown is in the selection change event, which means that the cell selection needs to be changed within the time frame of your idle window. So if you don't do anything except, say, type in a cell for a minute, then the workbook will be closed.

When you say "working on the file" what does that mean? We may be able to choose a different event but a lot depends on how you interact with the workbook.

Sorry - I didn't look closely enough at all your code and you have

Please Login or Register  to view this content.

in the workbook open event. That disables the code that reschedules the close macro - so just take that line out and it will work fine.

One other change - when the thumb drive is not attached, the macro may not get scheduled again, so change to this:

Please Login or Register  to view this content.