Yedekleme yapmadan excelden çıkmasın

[otelci01]

Merhaba, Aşağıdaki kodlara yedekleme yapmadan excelden çıkış yapmasın makrosunu nasıl ekleriz. teşekkürler şimdiden



Private Sub CommandButton2_Click()

If MsgBox("Yedekleme İşlemi Başlatılsın mı?", vbInformation + vbYesNo, "Bilgi Mesajı") = vbNo Then
Exit Sub
End If


Dim Klasör As Object, Dizin As String, DosyaAdı As Variant
Set Klasör = CreateObject("Shell.Application").BrowseForFoldeR(0, "Dosyanın yedekleneceği Klasörü seçin !", 1)

If Klasör Is Nothing Then
MsgBox "İşleme devam edebilmek için lütfen Klasör seçiniz !", vbExclamation, "Dikkat !"
Exit Sub
End If
Application.ScreenUpdating = False

DosyaAdı = Range("K4").Text
Dizin = Klasör.Self.Path & "\" & DosyaAdı & ".xls"

Sheets(Array("kasa_banka")).Select
Sheets(Array("kasa_banka")).Copy
ActiveWorkbook.SaveAs Filename:=Dizin
ActiveWindow.Close

Application.ScreenUpdating = True
MsgBox "İşlem Tamam... Bu güzel raporunuz kopyalanmıştır.", vbInformation


End Sub

 

[Orion1]

Modülün en üst kısmına declaration(General) Boolean değişken tanımlayın.
bu diyelim ki module1 olsun.
Public kayit As Boolean
yedek alma makronuzun en alt ına da aşağıdakiş kodu yazın

kayit=true

Thisworkbook modulundede Before Close olayına aşağıdaki kodu yazın

If Module1.kayit = False Then Cancel = True