Workbook_BeforeClose
15.04.2006 19:41:39
Peter
ich habe folgenden Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Dim Frage As String
Frage = "Wollen Sie die aktuelle Berechnung speichern ?"
If (MsgBox(Frage, vbQuestion Or vbYesNo, Name_Fenster)) = vbYes Then
ActiveWorkbook.Close SaveChanges:=True
Else
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub
Wenn ich jetzt die Mappe schließe, kommt die Frage immer zwei mal.
Vielleicht kann mir jemand sagen worn das liegt!
Vielen Dank!
LG Peter
Anzeige