melding negeren bij alsuiten

[Ralbers]

Hallo allemaal,

Ik heb een stukje code geschreven die uitgevoerd word als je op de knop afsluiten klikt

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("AT10").Value = "1" Then
Else
Dim retval
retval = MsgBox("Je staat op het punt het bestand af te sluiten zonder op te slaan. Gebruik knop afsluiten als je wijzigingen wil opslaan! Weet je zeker dat je door wil gaan?", vbQuestion + vbYesNo)
If retval = vbYes Then
ActiveWorkbook.Close SaveChanges:=False
Else
'?????????????
End If
End If
End Sub

De bedoeling is dus dat er een vraag komt met weet je zeker dat je het af wil sluiten
Als hier ja op beantwoord word dan sluit hij af zonder op te slaan
Bij nee moet hij de actie anulleren
Nu komt echter nog een keer de melding van excel zelf

Ik zoek een stukje code om op die melding meteen annuleren te antwoorden (Voor op de plek van de vraagtekens)
Ik heb al zitten klooien met

Application.DisplayAlerts = Cancel

en

Application.DisplayAlerts = false

maar het wil niet werken

Iemand ideeën?
alvast bedankt

 

[rebmog]

Probeer eens: Cancel=True

 

[Ralbers]

verrek dat is wel heel simpel

dat had ik niet verwacht
maar het lijkt te werken

bedankt