Workbook share par macro VBA

Bonjour à tous!

Un collègue et moi même tentons de rendre partagé un fichier contenant des macros.

Pour cela, nous avons trouver sur internet plusieurs méthodes mais aucune ne fonctionne.

La dernière que nous avons testé et qui semble pourtant fonctionner pour la pluspart des utilisateurs est la suivante:

Ce code à l'ouverture du fichier afin d'ouvrir ce dernier en "exclusive"

If ActiveWorkbook.MultiUserEditing Then
Application.DisplayAlerts = False ' Pas de message d'erreur
ActiveWorkbook.ExclusiveAccess ' Accès exclusif activé !
Application.DisplayAlerts = True
End If

Ce code pour le remettre en partagé à la fermeture

If Not ActiveWorkbook.MultiUserEditing Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared
Application.DisplayAlerts = True
End If

Et une macro pour sauvegarder le fichier

Sub Saving()
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="U:\TMOPSO\PSAGENTS\Pletschette\Application Listing OTG_2.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, AccessMode:=xlShared
    ActiveWorkbook.ExclusiveAccess

    Application.DisplayAlerts = True
End Sub

Auriez vous une idée de la méthode à employer?

Je vous joins un fichier exemple en annexe, certains fonctionnalités ne fonctionneront pas du fait de l'absence des liens vers notre réseau.

PS: le mot de passe pour unlock le file est "psw"

Le mode share permet finalement d'utiliser les macros... Désolé pour le post inutile.