Fermeture d'un fichier en lecture seule

Bonjour,
Je suis dans un groupe de travail de 10 personnes; je permets à 8 personnes de consulter uniquement mon fichier, et à 2 autres de le modifier si besoin.
Ces fichiers EXCEL sont sous Sharepoint.
J'ai écrit une macro pour la fermeture de ce fichier:

Sub QuitterCalendrier()
' Quitte et sauvegarde Calendrier
Dim Fichier As String

Fichier = ("https://traveling-my.sharepoint.com/personal/jean-louis_duranton_traveling_fr/Documents/Application/Calendrier.xlsm")

' Si le fichier a été ouvert en Lecture Seule, ferme le fichier sans Sauvegarde

If GetAttr(Fichier) = 1 Then ActiveWorkbook.Close

' Si le fichier a été ouvert normalement, ferme le fichier avec Sauvegarde pour les 2 autorisés

ActiveWorkbook.SaveAs Filename:= _
"https://traveling-my.sharepoint.com/personal/jean-louis_duranton_laposte_fr/Documents/Application/Calendrier Syci.xlsm"
ActiveWorkbook.Close

End Sub

Le résultat est le suivant: "Argument ou appel de procédure incorrect"
Comment écrire ce code afin que les utilisateurs non autorisés quittent le fichier sans message d'erreur ?
Le chemin, exact, ne semble pas convenir pour Getattr..

Merci de votre aide.