Verifier qu'un fichier est deja ouvert par quelqu'un d'autre

Bonjour,


voila je suis actuellement sur un petit probléme excel. En effet, j'ai un fichier excel publié sur un sharepoint et je cherche à ce que lorsque quelqu'un est en train de le modifier, une autre personne ne peut pas l'ouvrir, pour l'instant j'ai essayé sa :

Dim iFilenum As Long
Dim iErr As Long

On Error Resume Next
iFilenum = FreeFile()
Open FileName For Input Lock Read As #iFilenum
Close iFilenum

On Error GoTo 0

Select Case iErr
Case 0: IsFileOpen = False
Case 70: IsFileOpen = True
Case Else: <== voici l'erreur que je n'arrive pas à corriger
End Select

mais cela ne fonctionne pas car mon fichier renvoi toujours une erreur comme il est sur sharepoint.