Open File : Utilisateur actuel

Je travail sur un fichier commun situé sur un rep commun.
Je dois l'ouvrir via VBA, mais s'il est déjà ouvert par un autre utilisateur, il faut que je sache qui.

Comment renvoyer l'information sur l'utilisateur qui a ouvert le classeur ?

Workbooks.Open Filename:="P:\Rep\CommonFile.xls"
Workbooks("CommonFile.xls").Activate
WBReadOnly = Workbooks("CommonFile.xls").ReadOnly
WBUser = ???
MsgBox ("ReadOnly: " & WBReadOnly & " ; Used by : " & WBUser)

Merci d'avance