Clever-Excel-Forum

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

Hallo,

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

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

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

cysu11

Case

cysu11

Fennek