beforeclose ereignis
21.04.2006 18:41:47
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 ?"
Application.EnableEvents = False
Application.DisplayAlerts = False
Call Arbeitsmappenschutz_deaktivieren
For i = 1 To Worksheets.Count
Application.CommandBars(i).Enabled = True
Next i
Call Arbeitsmappenschutz_aktivieren
If (MsgBox(Frage, vbQuestion Or vbYesNoCancel, Name_Fenster)) = vbYes Then
Call Schutz_deaktivieren("Start")
Sheets("Start").Range("A1") = 1
ActiveWorkbook.Close SaveChanges:=True
Call Schutz_aktivieren("Start")
ElseIf (MsgBox(Frage, vbQuestion Or vbYesNoCancel, Name_Fenster)) = vbCancel Then
Cancel = True
Application.EnableEvents = True
Application.DisplayAlerts = True
Exit Sub
Else
ActiveWorkbook.Close SaveChanges:=False
End If
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Wenn ich jetzt den Button 'Abrechen' drücke kommt die Frage ob ich speichern will immer zweimal. Die Buttons 'ja' und 'nein' funktionieren.
Woran kann denn das liegen?
Vielen Dank!
LG Peter