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...
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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