Clever-Excel-Forum

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

Hallo Heinz,

hast Du das hiermit schon getestet?

Datei geöffnet ?

Gruß Uwe

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

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

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

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

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.

Heinz Ulm

Kuwer

Heinz Ulm

schauan

Heinz Ulm

schauan

schauan