Do you want to save the changes you made
22.07.2015 10:22:24
Ant
Ich habe folgendes Problem und benötige Eure Hilfe:
Wenn mein Dokument geschlossen wird dann läuft eine Makro mit verschiedenen Befehlen (funktioniert übrigens einwandfrei). Jetzt möchte ich eine Kontrolle einbauen und falls die Kondition negatif ist, dann soll die Makro einfach beendet werden, ohne dass das Dokument gespeichert und geschlossen wird.
Mit Exit Sub bekomme ich immer die Meldung "Do you want to save the changes you made" mit der Möglichkeit "Save", "Don't Save" oder "Cancel" anzuklicken. Wenn ich "Cancel" anklicke ist es OK.
Ich möchte eigentlich erreichen, dass die Makro nach der message box, ohne diese Meldung endet d.h. dass der Benutzer keine Wahl zum Anklicken bekommt.
Anbei der Teil meiner Makro welche ich zur Kontrolle benutzen möchte:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Saisie").Select
If Range("AN265") > 2 Then
MSG = "Vous demandez quelque part plus que 2 heures supplémentaires par jour ouvrable." & Chr$( _
10) _
& "Veuillez corriger la demande !!!" & Chr$(10) _
& " " & Chr$(10) _
& "Sie beantragen irgendwo mehr als 2 Überstunden an einem Wochentag." & Chr$(10) _
& "Bitte den Antrag verbessern !!!" & Chr$(10)
MsgBox MSG, , "!!! Fehler !!! !!! Erreur !!!"
Exit Sub
'GoTo weiter1
End If
Bei einer positiven Kondition kommen an dieser Stelle noch verschiedene Befehle bevor das _
Dokument schliessen soll
ThisWorkbook.Save
weiter:
ThisWorkbook.Close (False)
weiter1:
Application.ScreenUpdating = True
End Sub
Mit freundlichen Grüssen aus Luxemburg
Ant