Problème d'ouverture et fermeture non voulu de fichier (suite à la programmation de macro)

Bonjour,

J'ai programmé plusieurs fichiers excel,auxquels plusieurs personnes doiv=
ent avoir accès. J'ai donc fait en sorte que ces fichiers se ferment d'eu=
x même après un certain temps d'ouverture, sauf si on effectue une acti=
on dans ce fichier.

Pour se faire, j'ai utilisé les macro suivantes :

Private Sub Workbook_Open()
ProchainArret3
End Sub

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Finir3", Schedule:=False=
'annule événnement
End Sub


Public HeureArrêt
Sub ProchainArret3()
HeureArrêt = Now + TimeValue("00:03:00")
Application.OnTime HeureArrêt, "Finir3"
End Sub

Sub Finir3()
ThisWorkbook.Save
ThisWorkbook.Close True
End Sub


Le problème que j'ais, c'est que quand je ferme moi même le fichier ou =
qu'une macro le ferme, quelques minutes plus tard, celui-ci se ré-ouvre p=
our se refermer.

Je voudrais donc savoir, quelle est la cause de ces réouvertures non dé=
sirées et comment y remédier.

S'il existe une autre manière d'obtenir le même résultat, sans probl=
ème, cela pourrait aussi m'êtres très utile.

Merci d'avance pour votre aide.