Mehrere geöffnete Dateien abfragen
30.08.2015 14:02:48
Thomas
ich muss 4 Excel Dateien abfragen ob sie geöffnet sind. (Mitte.xlsm, Sued.xlsm, Nord.xlsm und West.xlsm) Nur wenn alle vier geschlossen sind soll das Makro "Aktualisieren" ausgeführt werden. Weiter soll über eine Message Box ausgegeben werden welche Datei(en) geöffnet ist / sind. Für eine Datei bekomme ich das hin, aber bei vier Dateien muss ich leider auch nach umfangreicher Recherche in diversen Foren aufgeben. Vielleicht kann mir ja hier jemand weiterhelfen.
Gruß,
Thomas
Hier der Code für die eine Datei.
Sub DateiOffen()
Dim sFile As String, sPath As String
sFile = "Mitte.xlsm"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbOpen("Mitte.xlsm") = False Then
Call Aktualisieren
Else
MsgBox (sFile) & " ist geöffnet!"
End If
End Sub
Private Function WkbOpen(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbOpen = True
End If
On Error GoTo 0
End Function