Öffnen und Schließen der Datei mit Bedingungen
markus
ich möchte das beim Öffnen und Schließen keine weiteren Dateien geöffnet sind, das führt dazu das
sich die Ereignisse gegenseitig nicht erkennen. Einzeln funktionieren sie wunderbar nur halt nicht zusammen.
Hat jemand eine Lösung für mein Problem?
Danke.
Auszug aus:
Private Sub Workbook_Open()
Dim lstrMsg2 As String, pboClose As Boolean 'Weitere XLS-Dateien sind geöffnet!
lstrMsg2 = "Es sind noch weitere Excel-Dateien geöffnet." & vbCrLf & vbCrLf
lstrMsg2 = lstrMsg2 & "Schließen Sie bitte alle Excel-Dateien." & vbCrLf
lstrMsg2 = lstrMsg2 & "Auch diese Datei wird automatisch geschlossen." & vbCrLf
lstrMsg2 = lstrMsg2 & "Starten Sie diese Datei danach erneut."
If Workbooks.Count "größer als" 1 Then
MsgBox lstrMsg2, vbExclamation, "Hinweis"
pboClose = True
Call Beenden_ohne_Save
ActiveWorkbook.Close
End If
Auszug aus:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lstrMsg1 As String 'Weitere XLS-Dateien sind geöffnet!
lstrMsg1 = "Die Datei wird gespeichert, kann aber nicht" & vbCrLf
lstrMsg1 = lstrMsg1 & "geschlossen werden, da noch weitere Excel-Dateien geöffnet sind." & vbCrLf & vbCrLf
lstrMsg1 = lstrMsg1 & "Schließen Sie diese und Beenden Sie erneut," & vbCrLf
lstrMsg1 = lstrMsg1 & "wobei Beenden ohne speichern reicht." & vbCrLf
If Workbooks.Count "größer als" 1 Then
MsgBox lstrMsg1, vbExclamation, "Hinweis"
ActiveWorkbook.Save
Sheets("Start").Select
Cancel = True
End If