çıkışta uyarı

[durhan]

Arkadaşlar ekli dosyayı incelermisiniz? (excel sayfasının köşedeki X basarak çıkış yapmak istiyorum. ancak ekli dosyadaki ÇIKIŞ butonuna basarak çıkış yaptığım zaman ki uyarıları vermesini istiyorum. İlgililere şimdiden teşekkür ederim. Saygılar...

 

[durhan]

Arkadaşlar sorunuma olumlu yada olumsuz herhangi bir cevap verilmedi. Uzman arkadaşlara soruyorum. bu mümkün değil mi?

 

[Orion1]

Dosyanız ekte.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cevap = MsgBox(" PROGRAMI KAPATMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ ? ", vbYesNo, "")
If Cevap = vbNo Then
    Cancel = True
    Exit Sub
End If
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"............./ DAHİLİ ......." & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "........... iyi Çalışmalar Diler." & Chr(10) & Chr(10) & _
"Lütfen Kayıt yapmak için EVET'e Kayıt Yapmadan Çıkış için HAYIR'a Basın...", 4, "")
If sor = vbYes Then
ActiveWorkbook.Save
Application.Quit
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub

 

[durhan]

teşekkür

Sayın Evren Gizlen ilginize çok teşekkür ederim.