Kapanışta uyarı mesajı

[soulfest]

Excel çalışma sayfasını kapattığımda "programın kapatılmasını istiyor musunuz?"
diye bir uyarı mesajı ve "evet" , "hayır" butonu eklemek istiyorum.yardımcı olursanız sevinirim teşekkürler.

 

[Ayhan Ercan]

Selam
Kod penceresinde This Workbook kısmına alttaki kodu yazarak deneyiniz..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
cvp = MsgBox("Programın kapatılmasını istiyormusunuz?", vbYesNo)
If cvp = vbNo Then Cancel = True
End Sub

 

[soulfest]

Çok teşekkürler çalıştı