Değişiklikleri Kaydet Sorusu

[petsiye]

Merhaba,

Elimde aşağıdaki kod bulunmakta ( Forumdan buldum ). Bu koda ilave olarak, exceli kapatırken, " Değişiklikleri kaydetmek istiyormusunuz" sorusunun hiç sorulmadan ve değişiklikleri kaydetmeden kapatılmasını nasıl sağlayabilirim ? ( Birçok kod buldum ama maalesef başarılı olamadım )

Yardımlarınız için şimdiden çok teşekkür ederim.

Elimdeki Kod;

Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
Cancel = False
End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Close False
End Sub

 

[petsiye]

Denedim fakat bu defada ilk kodda yazan " Vakit ayırdığınızı için teşekkür ederim" mesajı gelmiyor

 

[Muzaffer Ali]

Mesajı oraya eklemezseniz nasıl mesaj gelecek?

O kadarını bence siz de yapabilirsiniz.
Benim eklediğim kodun neresine mesajı yazmanız gerekiyor sizce?

 

[petsiye]

Bunu denedim. 2 kere "Vakit Ayırdığınız İçin Teşekkür Ederim" mesajı geliyor. Tamam dediğimde de Çalışma kitabından çıkıyor ama Excel açık kalıyor

Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
Cancel = False
ThisWorkbook.Close False
End Sub

 

[Muzaffer Ali]

Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
ThisWorkbook.Close False
End Sub

 

[petsiye]

Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
ThisWorkbook.Close False
End Sub

Aynı durumu bu kodda da yaşadım. ( 2 defa uyarı mesajı ve Çalışma kitabı kapanıyor Excel açık kalıyor )

 

[petsiye]

Bu şekilde oldu. Acemiliğim için kusuruma bakmayın lütfen. Teşekkür ediyorum



Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
ThisWorkbook.Saved = True
End Sub

 

[Muzaffer Ali]

Son gönderdiğiniz kod dosyayı kaydederek kapatıyor.

 

[petsiye]

Allah Allah. 4-5 defa denedim kaydetmeden kapatıyor. Sizde bir bakın isterseniz. Evet kodda o şekilde aslında kaydetmesi lazım gibi, ama keydetmiyor

 

[Muzaffer Ali]

Bunu deneyin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
    ThisWorkbook.Close False
    If Workbooks.Count > 1 Then
        Application.Quit
    End If
End Sub

 

[petsiye]

Bunu deneyin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
    ThisWorkbook.Close False
    If Workbooks.Count > 1 Then
        Application.Quit
    End If
End Sub

Bunda çift uyarı geliyor ve çalışma kitabı kapanıyor excel açık kalıyor, kaydetmiyor. Ama yazdığım gibi çalışıyor dediğim en son kod sorunsuz çalışıyor

 

[petsiye]

Bu sorunsuz aslında. Dilerseniz siz de deneyebilirsiniz


Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Vakit Ayırdığınız İçin Teşekkür Ederim", vbInformation
ThisWorkbook.Saved = True
End Sub

 

[Muzaffer Ali]

İşinizi görüyorsa bunu kullanın.

 

[petsiye]

İşinizi görüyorsa bunu kullanın.

Aynen. Tekrar çok teşekkür ederim