Datei nicht öffnen mit VBA

[KarstenZ]

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.

[schauan]

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"