Disconnect after inactivity:

http://boisgontierjacques.free.fr/fi...rmeInactif.xls
http://boisgontierjacques.free.fr/fi...eInactif2..xls


In a module:

Public HeureArrêt
Sub ProchainArret()
HeureArrêt = Now + TimeValue("00:01:00")
Application.OnTime HeureArrêt, "Fin"
End Sub

Sub Fin()
On Error Resume Next
Application.OnTime HeureArrêt, Procedu="Fin", Schedule:=False
'annule événnement
ThisWorkbook.Close True
End Sub

In ThisWorkBook:

Private Sub Workbook_Open()
ProchainArret
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
On Error Resume Next
Application.OnTime HeureArrêt, Procedu="Fin", Schedule:=False
ProchainArret
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
On Error Resume Next
Application.OnTime HeureArrêt, Procedu="Fin", Schedule:=False
End Sub

JB
http://boisgontierjacques.free.fr/

On 27 juin, 11:46, daredevilzx9
wrote:
I want to build a feature in Excel 2003 which gives a warning if somebody has
the sheet opened longer than a certain time, we are sharing a planning in
Excel, and sometimes a colleague keeps the sheet opened for a long time
without working with it .
other suggestions to solve this are also welcome.