Hallo zusammen,
diesen Beitag gab es schon einmal vor einer Woche.
Ich konnte mich leider nicht weiter damit beschäftigen und hatte erst heute wieder Zeit. Bin dem Problem auch schon etwas auf die Schliche gekommen.
Ich öffne mit einer Datei eine andere Datei, welche im Normalfall schon an einem anderen PC offen ist. Um die Meldung, das es sich um eine schreibgeschützte Datei handelt zu unterdrücken verwende ich Application.EnableEvents = False
Pfad = "\\C:
Platz1 = "datei.xlsm"
ChDir Pfad
On Error Resume Next
Application.EnableEvents = False
Workbooks.Open Filename:= _
Pfad & "\" & Platz1, UpdateLinks:=3
....
Workbooks(Platz1).Close SaveChanges:=False
Application.EnableEvents = True
Danach hängt mein Excel ca. alle 30 sek für 5 sek.
Ohne Fehlermeldung oder ähnlichem
Habe jetzt festgestellt, das das Problem nicht besteht, wenn die Datei geschlossen ist, ich also die Meldung "Datei schreibgeschützt" nicht unterdrücken muss.
Wie kann ich das eleganter lösen ?