Tableur excel qui s'ouvre tout seul

Bonjour,

Nous avons récemment souhaité mettre en place une macro sur 3 fichiers partagés. J'ai recherché des formulations çà et là, et j'ai légèrement ajusté à ce que que nous voulions faire.
Au bout de 5 min d'inactivité le fichier s'enregistre et se ferme.

Cela fonctionne, sauf que pour certains de mes collègues un des fichiers utilisé et après fermeture se ré-ouvre après le temps imparti. Je suis un débutant en macro, j'aimerai pouvoir arranger çà pour tout le monde.

Désolé si le sujet à déjà été traité, mais je n'arrive pas à le dénicher...
Merci pour votre aide.

Voici le texte dans This Workbook :

Dim xTime As String
Dim xWB As Workbook

Private Sub Workbook_Open()
On Error Resume Next
xTime = "00:05:00"
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub

Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork", , True
End Sub

Et voici le texte dans Module 1 :

Sub SaveWork()
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close

Application.DisplayAlerts = True
End Sub

Faut-il nommer les SaveWork différemment dans les 3 différents fichiers ?