Prüfen ob Datei offen im Netzwerk

[Heinz Ulm]

Hallo VBA-Freunde,

ich möchte gerne am Anfang eines Makros Prüfen, ob ein anderer User im Netzwerk gerade eine bestimmte Datei offen hat.

Wenn die Datei schon offen ist, soll das Makro verlassen werden, wenn nicht soll die Datei geöffnet werden und das Makro weiter laufen.

Der Pfad und der Dateiname liegen schon als Variable im Code fest. Hier mal der Codeanfang ohne die Varieblendeklaration und die Wertezuweisung

Code:

sheet_new = Range("Z29").Value
   Sheet_COMAB = Range("Z24").Value
   
   Range("G13").Value = OfferNr
   
       If Range("G16").Value = "stop" Then
           MsgBox ("Please control Overview data.")
           Exit Sub
       End If
       
       If Range("F44").Value <> "OK" Then
           MsgBox ("Please control Overview data.")
           Exit Sub
       End If
' Prüfen ob Collectingsheet offen, wenn ja Code Abbrechen,
' wenn nein öffnen
     
       If Range("D46").Value <> "" Then
           If Range("E14").Value = "same" Then
               SaveOffer

und an der REM-Zeile Prüfen ob soll nun geprüft werden, ob das Collectingsheet im Netzwerk irgendwo offen ist.
Ich finde keine Losung, obwohl ich das Internet rauf und runter durchsucht habe.
Vielen Dank für eure Hilfe.
Heinz

[Kuwer]

Hallo Heinz,

hast Du das hiermit schon getestet?

Datei geöffnet ?

Gruß Uwe

[Heinz Ulm]

Hallo Uwe,

Danke für die Info, das habe ich schon probiert,
mir brachte der Code aber immer
die MSGBox Wahr,

obwohl die Datei geschlossen war.

Ich muss das noch weiter probieren und suchen.

Gruß Heinz

[schauan]

Hallo Heinz,
Einen Schreibschutz hat die Datei nicht eventuell, oder Du im Verzeichnis keine Schreibrechte?

[Heinz Ulm]

Hallo André,

danke für deine Antwort,
Schreibschutz ist auch nicht drauf, und schreibrechte habe ich.

Ich habe jetzt noch was anderes gefunden, das hat mal in der Probedatei geklappt.
Mal sehen wie ich es dann noch einbauen kann.

Ich melde mich wieder mit dem laufenden Code.

Viele Grüße
Heinz

[schauan]

Hallo Heinz,

der code von online-excel bringt bei jedem Fehler die Aussage, die Datei wäre schon offen - wohl auch, wenn sie nicht da ist. Einen Fehler im Pfad oder Dateinamen hast Du nicht? Ich habe hier mal noch eine Variante, die auch prüft, ob die Datei vorhanden ist:
http://www.xltips.de/ftxt/vba-pur/File/FileOpened.html

[schauan]

Hallo Heinz,

ein weiterer Ansatz wäre, zu prüfen, ob es zur Datei eine versteckte temporäre gibt:

Sub test()
MsgBox Dir(ThisWorkbook.Path & "\~$" & ThisWorkbook.Name, vbHidden)
End Sub

Ich hab das jetzt mal für die getestet, wo ich gerade das Makro drin hatte. Du musst natürlich denn mit dem entsprechenden Pfad und Darrteinamen arbeiten.