VBA, Comment éviter qu'une macro accède a un fichier déjà ouvert

Bonjour à tous,
J'ai un modèle de classeur de type formulaire(xltm), qui au moment de sa =
fermeture (BeforeClose), enregistre un certain nombre de données contenue=
s dans ces cellules dans un autre classeur sous forme de base de données =
afin de garder un historique.
Malheureusement, travaillant à plusieurs personnes sur ce modèle, il ar=
rive que l'on accède simultanément au classeur d'historique, du coup le=
s données du dernier qui essaie d'y accéder ne son pas enregistrées c=
ar déjà ouvert.
Je souhaiterais donc ajouter un petit controle qui diffère l'ouverture de=
quelques secondes (5) par un timer le cas échéant, ou si le classeur e=
st toujours inaccessible après ce délai, un message qui indique un prob=
lème d'accès et la fermeture de la proc. en cours.

Ci dessous la partie en question de ma procédure:

' Procédure
Set Wk = Workbooks.Open(Répertoire & "" & Fichier)

'
' Ici, je souhaiterais mettre un contrôle au cas ou le classeur en questi=
on soit déjà ouvert
' par un timer de 5 secondes, et si toujours ouvert, un message d'alerte en=
fin de la procédure.
'

MonLien = CStr(Tableau_Données(18))
With Wk
With .Worksheets(Feuille)
DerLig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & DerLig) = CDate(Tableau_Données(13)) 'Date
.Range("B" & DerLig) = CStr(Tableau_Données(9)) ' Test
.Range("C" & DerLig) = CStr(Tableau_Données(10)) ' Essai
.Hyperlinks.Add Anchor:=ActiveSheet.Range("R" & DerLig), Addr=
ess:=MonLien, TextToDisplay:=MonLien, ScreenTip:="Ouvrir fichier"
End With

'. Suite de la proc.

En vous remerciant d'avance pour votre aide et conseils,
Cordialement
Emile