Thread: Kicking Inactive users by auto closing workbook

This link may help

http://www.excelforum.com/showthread...=inactive+user

VBA Noob

Try this example

VBA Noob

No problem

Code used

In a normal module

Dim DownTime As Date


Sub SetTime()
DownTime = Now + TimeValue("00:00:20")
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

Private Sub Workbook_Open()
MsgBox "This workbook will auto-close after 20 seconds 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

VBA Noob

Originally Posted by PeteGriggs

Hello, this is my first post.

I use this code, but is there any way I can disable the warning without disabling the code?

We all know it is going to close at work so we don't need the warning anymore, it is just an annoyance.

Thank you.

Please read the Forum Rules & start your own thread with a link to this one