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
Anzeige