Datei nur einmal öffnen

Forumthread: Datei nur einmal öffnen

06.08.2007 12:19:00

mtremer

Liebe Excel-Freunde,
ich habe in einer Datei einen Code eingebaut, der eine andere Datei öffnet.
Allerdings haben auf die Ausgangsdatei mehrere Personen zugriff, die diese Datei mehrmals öffnen können.
Die Zieldatei soll aber nur einmal geöffnet werden.
Da keine Meldung erfolgt, dass die Zieldatei bereits offen ist, muss Excel die Prüfung übernehmen.
Wie kann ich das machen?
Danke.
Viele Grüße
Marco

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei nur einmal öffnen

06.08.2007 12:27:00

Ramses
AW: Datei nur einmal öffnen

06.08.2007 13:59:00

mtremer
AW: Datei nur einmal öffnen

06.08.2007 13:59:46

mtremer
Problem gelöst - Danke

06.08.2007 14:33:07

mtremer

AW: Datei nur einmal öffnen

06.08.2007 12:27:00

Ramses

Hallo
probier mal ob das schon reicht

Sub TestFileOpen()
    Dim isOpen As Integer
    Dim strFile As String
    strFile = Application.GetOpenFilename("EXCEL Files *.xls, *.xls")
    If strFile = "" Then Exit Sub
    isOpen = TestOpen(strFile)
    Select Case isOpen
        Case 0: MsgBox "Datei " & strFile & " ist frei"
        Case 1: MsgBox "Datei " & strFile & " ist geöffnet"
        Case 2: MsgBox "Datei " & strFile & " wurde nicht gefunden"
    End Select
End Sub

Private Function TestOpen(strFilePath As String) As Integer
    If Dir(strFilePath) = "" Then
        TestOpen = 2
    Else
        On Error GoTo errorhandler
        Open strFilePath For Random Access Read Lock Read Write As #1
        Close #1
    End If
    errorhandler:
    If Err = 70 Then TestOpen = 1
End Function

Gruss Rainer

AW: Datei nur einmal öffnen

06.08.2007 13:59:00

mtremer

Hallo Rainer,
danke für Deine schnelle Antwort.
Nur klappt es nicht so, wie ich mir das vorgestellt habe.
Wir haben das mal getestet: zuerst ging es bei einem, bei dem anderen aber nicht. Dann kommt die Meldung gar nicht mehr. Nur noch beim Speichern der Zieldatei fragt er, ob die Datei ersetz werden soll.
Aber sie soll gar nicht erst aufgehen, sondern mit der MsgBox gesperrt werden.
Liegt das vielleicht an der Funktion TestOpen?
Viele Grüße
Marco

AW: Datei nur einmal öffnen

06.08.2007 13:59:46

mtremer

Problem gelöst - Danke

06.08.2007 14:33:07

mtremer

man muss ja nur nichtig lesen können ;-)
Mein Problem hatte sich danach von selbst gelöst...

Beliebteste Forumthreads (12 Monate)

Forumthread: Datei nur einmal öffnen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread