kapanış mesajına iptal butonu eklenmesi

[mustafa7691]

sn dostlar yapmış polduğum bir excel dosyasında daha önce sitenizden bir arkadaşımızın kodunu kullandım.thisworkbook sayfasına;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "ÇIKMAK İSTEDİĞİNİZDEN EMİNSENİZ TAMAM TUŞUNA TIKLAYINIZ!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"İYİ GÜNLER DİLERİM.", vbInformation, "KAPANIŞ MESAJI"
ActiveWorkbook.Save
End Sub

kodunu yazdım.bunda açılan mesaja birde iptal düğmesi eklemek mümkünmü ?
yardımlarınız için teşekkürler.saygılarımla

 

[ileriexcel]

bunu deneyin.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("çıkmak istiyormusunuz", vbInformation + vbYesNo) = vbNo Then
Cancel = True
Exit Sub
End If
ActiveWorkbook.Save
End Sub

 

[mustafa7691]

Sn ileriexcel teşekkürlerimi sunarım saygılarımla