Excel automatic save&close if inactive for 2 hours.

Hello.
I would like to know if this macros is possible? If it is, would you mind explaining what exactly I should be doing, because I'm a total newcomer when it comes to Excel's macros.
Thank you very much guys&gals.


Best regards,
Aleksey.

Originally Posted by nathansav

Hi

It is possible, and you'll need to so some research on Application.OnTime. Basically, you'll set this to be 2hrs on opening, then cancel and reset on things like Sheet Selection Change or Sheet Change.

Cheers

Like I said, I'm really bad @ Excel marcoing, and when I try to do smth like this: http://www.biz-development.com/Softw...-Idle-Time.htm
It just does not work! I open the spreadsheet, go idle for a huge amount of time and nothing happens even tho the timer is set for 20 seconds, it kinda works if I hit Macros -> Reset (macro) and run it, but it just closes the spreadsheet in 20 seconds even tho I'm not idle.

Originally Posted by satputenandkumar0

Hi Aleksey,

Try below code in normal module.

Dim DownTime As Date
Sub SetTime()
DownTime = Now + TimeValue("02:00:00")
Application.OnTime DownTime, "ShutDown"
End Sub
Sub ShutDown()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", Schedule:=False
End Sub

In Thisworkbook module

Private Sub Workbook_Open()
MsgBox "This workbook will after 2 hours of inactivity"
Call SetTime
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Disable
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Call Disable
Call SetTime
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Call Disable
Call SetTime
End Sub

Unfortunately your code does not work for me, I even changed the 02:00:00 timer to 00:00:20 (for testing purposes) yet absolutely nothing happens. Any idea what I did wrong? Here's a picture of what I've done:
oi58.tinypic.com/178i6b.jpg