Excel kapanışta bilgilendirme uyarısı oluşturma

[atabey317]

[sıze="4"][sıze="6"]excel belgesini kapanışta, kapatmadan önce " tatiller bölümüne girdiğiniz tarihleri sildinizmi " uyarısı vermesini nasıl sağlarız.

Evet ve hayır seçenekli

hayır seçilirse belge kapanmasın

evet seçilirse belge kapansın.[/sıze][/sıze]

 

[muygun]

Merhaba;
Dosyanın ThisWorkbook kısmına;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myValue As Variant
Secim = MsgBox("tatiller bölümüne girdiğiniz tarihleri sildinizmi? (Evet / Hayır ).", _
vbExclamation + vbYesNo + vbDefaultButton3, "ÇIkış Uyarı Mesajı")

If Secim = vbYes Then
MsgBox "Evet tuşunu seçtiniz.(Excel KAPATILIYOR.)", vbInformation
ThisWorkbook.Save
End If

If Secim = vbNo Then
MsgBox "Hayır tuşunu seçtiniz. (BURADASINIZ.)", vbCritical
Cancel = True
End If

End Sub

kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[atabey317]

merhaba;
dosyanın thisworkbook kısmına;

private sub workbook_beforeclose(cancel as boolean)
dim myvalue as variant
secim = msgbox("tatiller bölümüne girdiğiniz tarihleri sildinizmi? (evet / hayır ).", _
vbexclamation + vbyesno + vbdefaultbutton3, "çıkış uyarı mesajı")

ıf secim = vbyes then
msgbox "evet tuşunu seçtiniz.(excel kapatılıyor.)", vbınformation
thisworkbook.save
end ıf

ıf secim = vbno then

msgbox "hayır tuşunu seçtiniz. (buradasınız.)", vbcritical
cancel = true
end ıf

end sub

kodlarını yerleştirip deneyin.
Iyi çalışmalar.

.
.
.

Eyvallah birader çok teşekkür ederim. Işin rastgelsin.

 

[atabey317]

merhaba;
dosyanın thisworkbook kısmına;

private sub workbook_beforeclose(cancel as boolean)
dim myvalue as variant
secim = msgbox("tatiller bölümüne girdiğiniz tarihleri sildinizmi? (evet / hayır ).", _
vbexclamation + vbyesno + vbdefaultbutton3, "çıkış uyarı mesajı")

ıf secim = vbyes then
msgbox "evet tuşunu seçtiniz.(excel kapatılıyor.)", vbınformation
thisworkbook.save
end ıf

ıf secim = vbno then
msgbox "hayır tuşunu seçtiniz. (buradasınız.)", vbcritical
cancel = true
end ıf

end sub

kodlarını yerleştirip deneyin.
Iyi çalışmalar.

belge açılışta yeniden hosşgeldiniz. Uyarı kodu nedir.