Datei automatisch schliessen
12.04.2005 13:15:22
Daniel
habe da ein kleineres Problem.
Mit folgenden Code wird ja beim öffnen einer bestimmten Excel Datei alle anderen Exceldateien geschlossen. Nun möchte ich aber folgendes wenn diese bestimmte Datei offen ist soll diese beim neuerstellen oder öffnen irgendeiner Datei gespeichert und geschlossen werden. Ist das möglich?
Danke
Sub Workbook_Open()
Dim i As Integer
For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Name <> ThisWorkbook.Name Then
Workbooks(i).Close
End If
Next
'evtl. Abbruch, wenn nicht alle Dateien geschlossen wurden:
If Workbooks.Count > 1 Then
MsgBox "Es konnten nicht alle Dateien geschlossen werden. " & Chr(10) & _
ThisWorkbook.Name & " wird geschlossen."
ThisWorkbook.Close False
End If
End Sub