Office: VBA Code zum Anzeigen ob Datei bereits geöffnet ist

Hallo zusammen,

ich suche Hilfe bei folgendem Problem.
Ich habe per Excel einen Stardbildschirm.

Nun möchte per VBA einzelne Dateien öffnen. Leider zeigt mir Excel diese Meldung nun nicht mehr an.

(beim öffnen der Datei über den Explorer wird diese Meldung angezeigt)
Hier mein Code:

Sub Platte_Fasern()

ChDir "\\HECSWFILE03\Global-Data\conqdat\Datenerfassung C 3\Produktion\PE 1\Faserdimension\"
Workbooks.Open Filename:= _
"\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Produktion\PE 1\Faserdimension\Fasererkennung Platte Faser.xls"

End Sub

Kann ich in das Makro was einplegen das mir diese Meldung angezeigt wird wenn die Datei bereits offen ist.


Alternativ könnte man das auch mit einer MsgBox machen.
Makro sollte folgendes beinhalten.
-Prüfen ob Datei geöffnet
-Wenn Datei nicht geöffnet, öffnen
-Wenn von anderem Benutzer geöffnet, anzeigen wer diese Datei geöffnet hat.
-Abfrage ob Datei Schreibgeschützt geöffnet werden soll? JaNein

Am liebsten wäre es mit wenn die obige Fehlermeldung kommen würde.

Vielen Dank für Eure Hilfe.

Gruß
cama

 

Hi,

versuche es mal auf diesem Weg:

Code:

Sub OffenPruefen()
   Dim blnOffen As Boolean
   Dim wkbMappe As Workbook
   For Each wkbMappe In Workbooks
      If wkbMappe.Name = "Fasererkennung Platte Faser.xls" Then
         blnOffen = True
         Exit For
      End If
   Next wkbMappe
   If blnOffen = False Then Workbooks.Open Filename:= _
      "\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Produktion\PE 1\Faserdimension\Fasererkennung Platte Faser.xls"
End Sub

Bis später,
Karin

 

Hallo Karin,

du konntest mir doch schon mal helfen..... ;-)
Also dein code hier scheint noch nicht richtig zu funktionieren. Aber der Ansatz stimmt schonmal. Prima :-)

Wenn die Datei (rechner 1) geöffnet ist und ich sie mit deinem code (rechner 2) öffne wird sie ganz normal schreibgeschützt geöffnet.
Wenn ich dann die Datei auf dem 1ten rechner schließe kommt die Abfrage ob ich sie ohne Schreibschutz öffnen möchte....

Dies sollte allerdings ja schon geschehen, beim ersten öffnen, nicht erst wenn die Datei geschlossen wird
Vielen Dank!

gruß
Marcel

 

Hallo,

ch habe mir nun mal ein Makro zusammen gebastelt das mir
abfragt ob die Datei geöffnet ist, wenn geöffnet wird abgefragt per box ob mit Schreibschutz öffnen.....

Das funktioniert schon mal....

Allerdings ist die Idee so das ich einem button ein Makro zuordne, Dateipfad öffnen.
Wie bekomme ich es hin, das ich die Datei abfrage, wenn sie noch nicht geöffnet ist, dass ohne Box geöffnet wird?
Und falls die Datei von einem anderen benutzer geöffnet wurde, wer das ist, also den benutzername...

Hier der Code:

Sub Spinndüsen__C30()
If IsFileOpen("\\hecswfile03\global-data\filter-duesen\Düsenüberwachung Conquest\Con III 2013 Ausfallgründe.xls") Then
If MsgBox("Datei wurde von einem anderen Benutzer bereits geöffnen, Datei schreibgeschützt öffnen?", vbYesNo) = vbYes Then
ChDir "\\hecswfile03\global-data\filter-duesen\Düsenüberwachung Conquest\"
Workbooks.Open filename:= _
"\\hecswfile03\global-data\filter-duesen\Düsenüberwachung Conquest\Con III 2013 Ausfallgründe.xls"
End If
Else
End If
End Sub
Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err
On Error GoTo 0
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
Error errnum
End Select
End Function


PS: Am liebsten wäre mir noch immer, das die Meldung vom Excel her kommt. aber ich finde auch sonst wo nichts hierzu...
Danke und Gruß
CaMa

 

Hi,

schau mal unter diesem Link http://www.herber.de/forum/archiv/880to884/881998_mehrfacher_Zugriff_auf_Datei.html - vielleicht hilft er dir ja weiter.

Bis später,
Karin

 

Hi,

also weiterhelfen tut mir das leider nicht. Da hier das prob zwar ähnlich war, jedoch nicht behoben wurde.
Allerdings habe ich dadurch einen neuen Denkansatz.

Ich könnte per Makro die Datei von vorne weg ohne Schreibschutz öffnen. und falls dies nicht geht, bekomme ich ja auch eine Meldung.
Die Meldung könnte man in einer Box "Datei schreibgeschützt, trotzdem öffnen" jaNein ......

Oder liege ich jetzt da falsch?

Bin erst wieder am montag mittag im Geschäft und kann da wieder testen.

Wenn du mir noch einen Ansatz zu meiner letzten Idee hast, wäre super!

Gruß
CaMa