Comment partager efficacement un classeur

Private Sub maj()
    Dim fso As Object, attente_max As Date
    Dim fichier_verrou As String: fichier_verrou = ThisWorkbook.Path & "\lock.csv"
    
    '..... contrôle accès en maj du classeur sinon attente 5 secondes ...........................................
    Set fso = CreateObject("Scripting.FileSystemObject")    'assignation classe FileSystemObject
    attente_max = Timer + 60                                'attente maximum = 60 secondes
    While fso.FileExists(fichier_verrou)
        If Timer > attente_max Then MsgBox "temps d'attente dépassé": Exit Sub
        date_fin = DateAdd("s", 5, Now)
        Application.Wait date_fin
    Wend
    
    '-----  création fichier verrou
    fso.CreateTextFile fichier_verrou
    
    '-----  exécution des mises jours
    '........................................
    '-----  fin exécution des mises jours
    
    '-----  suppression fichier verrou
    fso.GetFile(fichier_verrou).Delete

End Sub

Private Sub Workbook_Open()
    Dim fso As Object
    Dim fichier_verrou As String: fichier_verrou = ThisWorkbook.Path & "\lock.csv"
    
    'suppression éventuelle du verrou si ce classeur n'est pas ouvert par un autre utilisateur
    Set fso = CreateObject("Scripting.FileSystemObject")
    With ThisWorkbook
        If UBound(.UserStatus) = 1 Then If fso.FileExists(fichier_verrou) Then fso.GetFile(fichier_verrou).Delete
    End With
    

End Sub

ThisWorkBook.save
'.... mises à jour ….
ThisWorkBook.save