Abbrechen aktivieren
30.05.2006 16:41:05
Bissi
wie kann ich bei nachfolgendem Code automatisch die Aktion Abbrechen aktivieren. Dokument soll nur schließen wenn in erster MsgBox ein Nein erfolgt.
Mit freundlichen Grüßen Bissi
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim erg
erg = MsgBox("Haben Sie noch ein anderes Dokument zu speichern?", vbYesNo)
If erg = vbYes Then
End If
If erg = vbNo Then
Application.Quit
End
End If
MsgBox("Mit Tasten Strg+Tab zu speicherndes Dokument aufrufen !")
End 'ohne End schließt Dokument sofort, mit End erfolgt Abfrage /Nein/Abbrechen
End Sub
Anzeige