Workbook.Open funtioniert auf einmal nicht mehr ganz!

[cysu11]

Hallo zusammen,

ich habe das nächste Phänomen, dass ich mir nicht erklären kann, evtl. weiß jemand hier woran das liegt.

Wir öffnen seit Jahren schon mit folgenden Code:

Private Sub LinkAuftrag()
    Workbooks.Open Filename:="C:\Auftrage\Auftrag" & Range("J3") & ".xlsm"
End Sub


eine bestimmte Datei. Es funktioniert auch wunderbar, solange die Datei niemand offen hat. Wenn jemand anderes diese Datei offen hat, dann funktioniert das nicht mehr, das hat aber die ganze Zeit funktioniert ohne Probleme und die Datei wurde eben schreibgeschützt geöffnet. Nun kommt die Fehlermeldung 1004 - Excel kann auf Datei nicht zugreifen ...

Weiß jeman Rat?

Vielen lieben Dank im Voraus
LG
Alexandra

[00202]

Hallo,  

gib den Parameter " ,ReadOnly:=True" einfach mit an.

[cysu11]

Hallo Case,

das würde bedeuten, daß die Datei immer in Readonly Modus geöffnet wird, auch wenn noch niemand die Datei offen hat, richtig?
Wenn die Datei noch nicht offen ist, sollte diese natürlich ganz normal geöffnet worden.

Noch ne Idee?

DAnke & LG
Alexandra

[Fennek]

Hallo,

prüfe zuerst, ob die Datei bereits geöffnet ist, falls ja, wird sie mit "ReadOnly" geöffnet, sonst normal. Auch im ersten Fall kann sich VBA jederzeit Schreibrechte verschaffen.

Es gibt viele Arten zu prüfen, ob eine Datei geöffnet ist. Hier nur eine Variante:

Code:

Function fn_Tilde(ByVal file) As Boolean

If Left(file, 2) = "~$" Then fn_Tilde = False: Exit Function
If Dir(Pfad & "~$" & file, vbHidden) = vbNullString Then
    fn_Tilde = True
Else
    fn_Tilde = False
End If
End Function

mfg