Dosya kapatma uyarısı

[inflexible]

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]

Aşağıdaki kodu thisworkbook sayfasına kopyalayın.

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]

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