ORAKEL
Peter
Ich bin etwas verwirrt. Habe eine grössere Datei, in der verschiedene Datenmanipulationen durchgeführt werden.
Am Schluss wird nachstehender Sub abSpeichern aufgerufen, bei der die Möglichkeit besteht, die Datei zu speichern.
Nun passiert Folgendes:
Wenn die Frage: "Wollen Sie die Datei speichern?" mit JA beantwortet wird, wird die Datei gespeichert. Wenn dann anschliessend dieses Workbook geschlossen wird, erscheint nochmals die Frage, ob die Datei gespeichert werden soll. Wenn auch diese Frage mit JA beantwortet wird, wird die Datei nochmals gespeichert - und nachdem sie geschlossen wurde, wird sie wieder geöffnet.
Ich habe keine Ereignisse definiert, die so etwas "begünstigen", kein BEVORSAVE, nur diesen Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.onkey "{F3}"
End Sub
der aber meines Erachtens nichts damit zu tun hat.
Wenn nicht nur das Workbook geschlossen wird, sondern das Programm Excel, passiert nichts solches.
Ich kann mir schlicht nicht vorstellen, was Excel bewegt, die Datei wieder zu öffnen.
Kann mir jemand weiterhelfen?
Gruss, Peter
Sub abSpeichern()
Dim aName As String
Dim aUs As Integer
'Abfrage, ob Daten gespeichert werden sollen
aName = ActiveWorkbook.Name
aUs = MsgBox(" Wollen Sie die Datei speichern?", vbYesNo + vbQuestion + _
vbDefaultButton1, "DATEI OHNE SPEICHERN SCHLIESSEN = MÖGLICHER DATENVERLUST")
If aUs = vbYes Then
Application.StatusBar = _
"Datei " & aName & " wird gespeichert"
ActiveWorkbook.Save
Else
End If
Application.StatusBar = ""
End Sub