Abbruch Datei öffnen, wenn Anderer sie offen hat
05.08.2004 13:43:52
Johannes
folgendes Problem: Die Datei auf dem Server S01 wird von mehreren Useren genutzt. Bei einigen ist das Öffnen der Datei im VBA-Code vorgesehen. Wenn aber gerade dann diese Datei schon offen ist, wird sie schreibgeschützt geöffnet, was dann zu anderen Problemen führt. Es sollte so sein, dass dann das OnError Ereignis greift, die Datei nicht geöffnet wird und die Fehlermeldung kommt, im besten Fall mit Nennung des Users, der die Datei gerade offen hat.
Meine Bitte kann mir jemand beim Code helfen?
Sub Pruef()
On Error GoTo Fehler1
Workbooks.Open Filename:= "\\S01\Daten\Leergutverwaltung.xls"
Exit Sub
Fehler1:
MsgBox "Datei ist schon von [anderer User] geöffnet !"
End Sub
Herzlichen Dank für Eure Mühe schon jetzt.
Viele Grüße
Johannes