Code VBA pour partager un classeur

Re : Code VBA pour partager un classeur

J'ai trouvé du coup une réponse à ma propre question.

pour partager :

activeworkbook.saveas accessmode := xlshared

et pour départager :

activeworkbook.exclusive access

Par contre j'ai une autre question, comment faire pour savoir qui utilise le classeur partagé ou plus simple, si quelqu'un utilise un classeur partagé.

Merci d'avance

salut,
ton post m'a aidé alors je te donne l'astuce que j'ai chiné, même si j'arrive avec 11 ans de retard

Sub BIG_BROTHER_WATCHING_YOU()
Dim i As Integer
Dim affiche As String
Users = ActiveWorkbook.UserStatus
For boucle = 1 To UBound(Users)
affiche = affiche & Users(boucle, 1) & vbTab & CDate(Users(boucle, 2)) & vbCrLf
Next boucle
MsgBox affiche, vbInformation, "Utilisateurs connectés :"
End Sub