Clever-Excel-Forum

Hallo zusammen,

gibt es eine Möglichkeit, das 2. öffnen einer Excel-Datei im Netzwerk mittels VBA zu verhindern, bzw. einen Meldung auszugeben, das diese Datei bereits geöffnet ist.

Vielen Dank für eure Mithilfe und Antworten.

Hallöchen,

ist die Datei freigegeben?
Eventuell geht was in der Art:

If ActiveWorkbook.ReadOnly = False then MsgBox "File schon geöffnet"

oder Du prüfst, ob die Datei zum Schreiben geöffnet werden kann, so in etwa:

On Error GoTo errorhandler
Open MeineDatei For Random Access Read Lock Read Write As #1
Close #1
Exit Sub
errorhandler:
If Err = 70 Then MsgBox MeineDatei & " ist schon offen"