close (and save) workbook after ten minutes of nil activity

[mnmhenry]

Is it possible to close and save workbook after ten minutes of nil activity.

Some collegues regularly use some of my worksheets over a lan and are always leaving the files open whilst they are away from their desk (thus I cant open my own files). I'm sure most of us are familliar with this broblem.

Can this be done or can someone come up with a work around the problem ?

Thanks,
Mark.

 

[agihcam]

try this codes;

place this code in a standard module;

Dim timelimit, go, endtime, timeclose
Sub limitme()
timelimit = 600
    go = Timer
    Do While Timer < go + timelimit
        DoEvents
    Loop
    endtime = Timer
    timeclose = endtime - go
    ThisWorkbook.Close True
End Sub

place this code in thisworkbook module;

Private Sub Workbook_Open()
limitme
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
timelimit = 0    ' Set duration.
    limitme
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
timelimit = 0    ' Set duration.
    limitme
End Sub