"Değişiklikleri Kaydetmek İstiyor musunuz?" Sorusuna iptal kodu varmı

[kykbt]

Arkadaşlar merhaba
"Değişiklikleri Kaydetmek İstiyor musunuz?" Sorusuna nasıl iptal kodu yazabilirim.
Aşağıdaki kodda Application.ScreenUpdating = False işe yaramıyor. Soru ekrana yine geliyor.
Gerçi gelmese bu sefer de direk kapnsın istemiyorum.
Soru ekrana gelmeden kod ile iptal edilebilirmi.
Dosyanın kapatılma işleminin durmasını sağlamam gerekiyor

Sub Auto_Close()
'On Local Error Resume Next
durum = durum
değiştimi = değiştimi
güncellendimi = güncellendimi
uyarı = uyarı
........
    If uyarı = 2 Then
     Application.EnableEvents = False
     Application.ScreenUpdating = False
     Application.DisplayAlerts = False
    Exit Sub

    End If
End If
......
End Sub

 

[Mr.MKA]

Application.DisplayAlerts = False

 

[Mr.MKA]

Kodun başında bunu kullanırsan istediğin olur

 

[kykbt]

Kodun başında bunu kullanırsan istediğin olur

Hocam yukarıda kod var fakat Auto_Close tan çıkışta yine soruyor.
Ayrıca benim istediğim sormamasının yanında , dosyanın kapat komutunu iptal etmesi yani dosyanın kapanmamasını istiyorum.
Bu sıkıntı Auto_Close Makrosunun bir sıkıntısımı bulamadım.

 

[ÖmerBey]

dosyanın kapat komutunu iptal etmesi yani dosyanın kapanmamasını istiyorum.

Dosyanın kapanmasını engellemek için ThisWorkbook kod bölümüne aşağıdaki kodu uygulayınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

 

[kykbt]

Arkadaşlar Merhaba
Çözemedim
Dosya,yı ekledim yapmaya çalıştığım soruya iptal dediğimde bana tekrar sormadan ve hiçbir işlem olmadan dosya açık kalsın

 

[ÖmerBey]

Kodlarınızdan niyetinizi anlayamadım, ne yapmak istediğinizi tam olarak yazarsanız elimizden geldiğince yardımcı olmaya çalışırız.

 

[kykbt]

Kodlarınızdan niyetinizi anlayamadım, ne yapmak istediğinizi tam olarak yazarsanız elimizden geldiğince yardımcı olmaya çalışırız.

Hocam merhaba
Aslında ekli dosyada kodlar oldukça daraltılarak eklendi.
Dolayısı ile çok haklısınız. Anlatmaya çalışayım.
Çalışma kitabını kapatmak istediğimde eğer dosyada güncelleme veya değişiklik var ise,
Bu değişikliği kayıt ederek veya kayıtsız olarak başka bir klasöre kopyalıyorum.
Veya bu aşamada vazgeçip dosya da işlem yapmak istiyorum.
Yani kapanma makroları nı Before_close ve Auto_close çalıştıktan sonra böyle bir işlem yapmak istiyorum.
Ben makro içindeki mesaj sorusuna iptal dediğimde, dosyadaki makronun durup bitmesini ve dosyanın kapanma işleminin iptal olmasını istiyorum.
Kapat komutu almış bir dosyaya vazgeçtim demek istiyorum. Ama excell,in kayıt etmek istermisiniz sorusunu tekrar görmek istemiyorum.
Benim yaptığım mesaj sorgu excell in kayıt ekranı sorusu yerine geçsin desek sanki olur

 

[ÖmerBey]

Merhaba,
Ekteki dosyayı inceleyiniz, dosyanızdaki kodları bu mantıkla kurgularsanız sanırım istediğiniz olur.
İyi çalışmalar...

 

[kykbt]

Merhaba,
Ekteki dosyayı inceleyiniz, dosyanızdaki kodları bu mantıkla kurgularsanız sanırım istediğiniz olur.
İyi çalışmalar...

Hocam yardımınız için teşekkürler.
Bir şekilde dengeye oturdu..

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...