Aktive Nutzer einer Datei im Netzwerk ermitteln

[Loeffelblock]

Hallo,

ich würde gern per vba alle aktiven Nutzer einer Excel Datei anzeigen lassen.
Ich habe schon programmiert:

Ich lasse eine Datei über VBA öffnen. Wenn schreibgeschützt ist, wird mir ein Fehler angezeigt.
Jetzt fehlt nur noch der Benutzer der im Netzwerk die Datei geöffnet hat.

Ist das möglich? Habt ihr eine Lösung dazu.

Hier noch der Ausschnitt zur Überprüfung:

Code:

With ActiveWorkbook
       If .ReadOnly Then
           MsgBox ("Arbeitsmappe " & .Name & " ist bereits von " & Application.UserName & " geöffnet. Vorgang wird abgebrochen.")
           .Close
           ExitBedingung = 1
           Exit Sub
       End If
End With

Danke im Voraus!

Liebe Grüße :)

[schauan]

Hallöchen,

habe es noch nicht ausprobiert, aber eventuell hilft das:

ActiveWorkbook.WriteReservedBy


Application.Username ist meist derjenige, der gerade vor'm Bildschirm sitzt