Hallo und guten Tag,

ich habe heute mal eine etwas komplizierte Frage an Euch und hoffe Ihr könnt mir helfen.

Und zwar habe ich folgenden Code:

If ActiveWorkbook.ReadOnly = True Then
ActiveWorkbook.Close savechanges:=False
Hinweis = MsgBox("Wahrscheinlich wird die Datei gerade verwendet" & Chr(10) & "Bitte versuchen Sie es später nocheinmal.", vbInformation, "Vorführwagenverwaltung")
Application.Quit
ThisWorkbook.Close savechanges:=False
Else
Application.Run "Vofüwg_ezn.xls!auto_open"
End If

ThisWorkbook.Close savechanges:=False

Exit Sub
raus:
Fehler = MsgBox("Die angeforderte Datei wurde nicht gefunden oder ist zurzeit gesperrt!", vbCritical, "Vorführwagenverwaltung")
Application.Quit
ThisWorkbook.Close savechanges:=False

Dies funktioniert auch prima, aber ist es so wenn das Programm von einem anderen Benutzer benutzt wird, wer das ist, Excel bringt lediglich die Meldung das jemand drin ist.

Wie kann ich also herausfinden wer gerade auf die Datei zugreift.


Vielen Dank schonmal im voraus.


Steffen