Macro Visual pour Excel

Bonjour,

J’ai un fichier Excel qui est en commun dans un réseau.
Le problème c’est des personne qui utilise ce fichier oublie de le fermer après l’avoir utilisé.
J’ai eu l’idée de faire une macro comme cela.

Dans le module Thisworkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:02:00"), "Sortie"
End Sub

Dans un module standard

Sub sortie()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Cela fonctionne si on laisse la macro aller au bout du temps défini dans TimeValue("00:02:00")
Ici 2 minutes. Mais voila le problème, si j’enregistre ou pas avant la fin du temps et si Excel reste ouvert et au bout du temps des 2 minutes la fenêtre d’activation macro s’ouvre et m’informe que le fichier Excel va être ouvert si je fais Activer les macros et bien il ouvre il sauve et il ferme le fichier.
Il y a-t-il une possibilité d’empêcher cela ?

Moi j’ai fait un bouton Quand je clic pour lui affecter la macro Sub sortie() avec une variante qui fait fermer Excel.
Mais le problème à mon boulot ils ne sont pas doués il ne voient pas forcement cela.

Merci pour votre aide.