Dosya kapatma uyarısı

Katılım
22 Ekim 2004
Mesajlar
109
Altın Üyelik Bitiş Tarihi
31/05/2019
selamlar ;
ekte bulunan dosyayı kapatmak istendiğinde"ARŞİV BOTUNUNA BASILDIĞINDAN EMİNMİSİNİZ?" şeklinde soru sormasını cevap evet ise kapatılmasını istiyorum.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu thisworkbook sayfasına kopyalayın.

Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
sor = MsgBox("ARŞİV BOTUNUNA BASILDIĞINDAN EMİNMİSİNİZ?", 52, "Uyarı")
If sor = vbYes Then Cancel = False
End Sub
Not: Bu sorunuz için dosya eklemenize gerek yoktu.
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
aşağıdaki kodları çalıştığın excel sayfasına vba kısmının this workbook kısmına yapıştır. çalışacaktır.. kolay gelsin..
Private Sub Workbook_BeforeClose(Cancel As Boolean)

x = MsgBox("ARŞİV BOTUNUNA BASILDIĞINDAN EMİNMİSİNİZ?", vbYesNoCancel + vbQuestion + vbDefaultButtons2)
If x = vbYes Then

ElseIf x = vbNo Then
Cancel = True
ElseIf vbCancel Then
Cancel = True
End If

End Sub
 
Üst