Kaydetmeden çıkış

[manisali61]

Arkadaşlar merhaba..
Korhan Ayhan üstadımın hazırladığı programda değişiklik yaptıktan sonra çıkarken "kaydedip kaydetmeyeceğimizi" soruyor..Evet deyip kullandığımız çalışma programından çıkarken açık olan bütün excel kitaplarını kaydetmeden kapatıyor..Ben sadece kullandığım bu çalışma kitabından çıkmasını istiyorum..
Bu progfram ile kodları aşağıya yazıyorum..Araya hangi satırın ekleneceğini ya da hangi satırın düzenleneceğinizi gösterirseniz sevinirim..
Şimdiden teşekkürler. Kodlar şöyle :

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sor
sor = MsgBox("Dosyanızın kaydedilmesini istiyor musunuz?", 4, " UYARI - Sayın Mehtap BAYKA")
If sor = vbYes Then

ActiveWorkbook.Save
Application.Quit
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub

 

[manisali61]

Üstadlar..Örnek dosya istemez sanırım..

 

[xp45s]

bu sorun benim hazırladıgım bir programdada mevcut.İlgili dosyayı kapatırken açık olan diger excel dosyalarımda kapanıyor.

 

[manisali61]

Sorunun ;

ActiveWorkbook.Save
Application.Quit
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub

satırları arasına eklenecek basit bir komut satırını olduğunu tahmin ediyorum ama yazılacak komutları bilmiyorum

 

[manisali61]

Son kez bir ekleme yapmak istiyorum..Yine yanıt gelmezse çıkacağım zaten..

Değişikliği kaydederseniz "yani değişikliği kaydetmek istiyor musunuz" diye sorduğunda Evet derseniz diğer dosyalar için de ayrı ayrı aynı şeyi soruyor.ama "Hayır" derseniz tüm açık çalışma kitaplarını da kaydetmeden kapatıp çıkıyor

 

[Zeki Gürsoy]

Açık diğer dosyalrın etkilenmemesi için "Application.Quit" satırlarını kaldırmalısınız...

 

[manisali61]

İşte bu kadar basitmiş yanıtı..İlgine,bilgine,emeğine,en önemlisi YÜREĞİNE çok teşekkür ediyorum Zeki üstadım

 

[security]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sor
sor = MsgBox("Dosyanızın kaydedilmesini istiyor musunuz?", 4, " UYARI - Sayın Mehtap BAYKA")
If sor = vbYes Then
ActiveWorkbook.Save
Else
ThisWorkbook.Close Saved = True
End If
End Sub

ThisWorkbook.Close Saved = True kodunuda ekleyebilirsiniz...

 

[ynmcan]

Syn. manisali61;

size en uygun kodun aşağıda ki olacağını tahmin ediyorum.

Eğer birden daha fazla Workbook açıksa sadece Active olan Window'u ( pencereyi ) kapatıyor.

Eğer tek br window (yani üzerinde çalıştığınız) açıksa tüm Excel uygulamasını kapatıyor.

Bu kod, açık olan pencereleri sayıyor ve eğer tek bir window açıksa Exceli kapatıyor. Değilse sadece o pencereyi kapatıyor.

If Application.Windows.Count = 1 Then
Application.Quit
Else
Application.ActiveWindow.Close
End If