(VBA) Recupérer le login Windows si fichier en lecture seule

Hello le forum,

J'utilise ce code pour connaître l'ID windows de la personne qui est sur un fichier excel.

Private Sub Workbook_Open()

'Récupérer le login Windows de l'utilisateur

Application.DisplayAlerts = False
If ThisWorkbook.ReadOnly = True Then
    MsgBox "Le fichier est ouvert par " & Environ("username"), vbOKOnly + vbInformation, "Fichier ouvert"
End If
Application.DisplayAlerts = True

End Sub

Le problème c'est que j'ai le message excel qui me dit que le fichier est déjà ouvert mais ma procédure me renvoie mon propre ID ...

Est-il possible de récupérer l'ID de la personne ?

Merci à vous.

Bonjour,

pas sûr que ce soit faisable, sauf peut-être si fichier sur réseau.

A ta place je me ferais un petit fichier texte où j'inscrirai date-heure et ident à l'ouverture en lecture/écriture, vidé à à la fermeture.

Tu n'auras plus qu'à consulter ce fichier pour voir s'il est disponible, sinon qui l'utilise et depuis quand.

eric

Hello eriic,

Bonne idée le fichier texte...

Oui le fichier est sur le réseau où plusieurs utilisateurs y ont accès.

R@g