Will not auto Close down workbook when screensaver active

**jeffwest2** · 12-09-2009, 11:59 AM

I have a 'few' workbooks that I have added some code to which auto closes the workbook if it has been inactive for more than 60 minutes.

Problem seems to be is that this doesn't envoke if a screen saver is active, does anyone have any VB code to disable the screen saver until after the workbook has closed.

**Leith Ross** · 12-09-2009, 02:16 PM

Hello jeffwest2,

Place this macro in its own VBA module. You can then call it in your code to turn the screen saver on and off.

Please Login or Register  to view this content.

**davegugg** · 12-09-2009, 04:58 PM

Hey Leith, that is a sweet piece of code. I have an issue where once my screensaver has been on for a minute, windows XP locks my workstation. Is there a way to unlock it with vba, or, if not, would the procedure run regardless?

**Leith Ross** · 12-09-2009, 05:38 PM

Hello davegugg,

If the code is already running or scheduled to run at a set time, the API macro should still work. Locking the workstation should only ignore external events, like keystrokes and mouse movements. Give it a try and let me know what happens.

**jeffwest2** · 12-11-2009, 04:06 AM

Leith

Thanks for this, i will give it a try out in my code see how i get in.

**jeffwest2** · 12-11-2009, 09:30 AM

Leith

Not sure what's wrong, i added it as a module on it's own, then added to the workbook_open a call to the function using ScreenSaverOn False.

However, after 15 minutes the screensaver kicked in, and my auto shutdown didn't work.

**jeffwest2** · 12-11-2009, 10:40 AM

Kind of solved my problem.

The issue wasn't with the close code, the issue was with a user form i had created.

This was envoked after the 60 minutes limit to tell the user they had 1 minute before close down, this was a non user intervention form i.e. no buttons, it stayed on screen for 1 minute, when this closed it then saved and closed the workbook down, however, this wasn't closing down after the minute, instead it was staying on screen, behind the screen saver, until the user moved the mouse/pushed a button.

Turning this warning off has solved the issue, although i don't understand why this should be the case, for now my workbook closes.