Benutzer von im Netzwerk geöffn. Dateien anzeigen?
18.04.2005 20:52:55
im
wie kann ich mir denn per VBA den aktuellen Benutzer einer Netzwerkdatei ausgeben lassen, sofern diese geoeffnet ist)?
Ich nutze den Code (hier gefunden in der Recherche - Danke Ramses ;o)):
(dabei habe ich die Zeile beginnend mit Nutzer eingefuegt um den aktuellen Nutzer der Datei zu bekommen - gibt aber logischerweise mich als Anwender zurueck - mit beiden FUnktionen (Application und Environ))
Private Function TestOpen(sPath As String) As Integer
If Dir(sPath) = "" Then
TestOpen = 2
Else
On Error GoTo errorhandler
Open sPath For Random Access Read Lock Read Write As #1
Close #1
End If
errorhandler:
If Err = 70 Then TestOpen = 1
nutzer = Application.UserName 'Environ("USERNAME")
End Function
Ich moechte aber den Anwender der Datei haben, der diese Datei ggf. geoeffnet hat.
Vielen Dank im Voraus fuer eure Muehe
Gruss und schoenen Abend
Rudi