XL 2019 Savoir si un fichier est utilisé

Function FichierOuvert(Nom$) As Boolean
' Renvoie True si fichier déjà ouvert, sinon renvoie False
    Dim n°F As Integer
    FichierOuvert = False
    n°F = FreeFile
    On Error Resume Next
    Open Nom For Input Lock Read As #n°F
    If Err = 70 Then FichierOuvert = True
    Close #1
    On Error GoTo 0
End Function

    MonFichier = "C:\Users\PC_PAPA\Desktop\action.xlsx" 'A remplacer par votre fichier
    If FichierOuvert(MonFichier) = True Then
        MsgBox "Fichier déjà ouvert"
    End If