Timers in Excel

[Paul O]

Hi All,

I am wanting a timer to run in Excel, which starts running when the user stops using the spreadsheet. After 10 minutes, the timer will automatically close the workbook.

I have the code for the timer (using API), but am struggling to find a way whereby you know that the user is no longer using the sheet.

I have thought of "keydown" or similar, but this would have to be entered into each sheet I think (a bit messy).

I have looked through the options from "This workbook", but none relate to Excel loosing focus.

Can anyone help me please?!?!

Cheers,

Paul.

[alex_read]

There is going to be no 'tidy' way to do this, though there is a 'SheetChange' event found under the Workbook module:

Occurs when cells in any worksheet are changed by the user or by an external link.

Personally I would have maybe something like this scenario:

[color="#0000A0"]Private[/color] [color="#0000A0"]Sub[/color] Workbook_SheetChange([color="#0000A0"]ByVal[/color] Sh [color="#0000A0"]As[/color] [color="#0000A0"]Object[/color], [color="#0000A0"]ByVal[/color] Target [color="#0000A0"]As[/color] Range)
    lngTimeSinceUsed = 0
[color="#0000A0"]End[/color] [color="#0000A0"]Sub[/color]

With this in the timer (possibly using the settimer API call set at a minute interval):

[color="#0000A0"]Sub[/color] TimerProc([color="#0000A0"]ByVal[/color] hwnd [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color], [color="#0000A0"]ByVal[/color] nIDEvent [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color], _
[color="#0000A0"]ByVal[/color] uElapse [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color], [color="#0000A0"]ByVal[/color] lpTimerFunc [color="#0000A0"]As[/color] [color="#0000A0"]Long[/color])
    lngTimeSinceUsed = lngTimeSinceUsed  + 1
    Doevents
 
    [color="#0000A0"]If[/color] lngTimeSinceUsed = 10 [color="#0000A0"]Then[/color]
       [color="#00A000"]' Kill Excel & Exit the timer![/color]
    [color="#0000A0"]End[/color] [color="#0000A0"]If[/color]
[color="#0000A0"]End[/color] [color="#0000A0"]Sub[/color]