Kayıt

[muratgunay48]

Merhaba arkadaşlar. Excel dosyasını kapatırken, kaydet ya da kaydetme seçeneği çıkıyor ya. Onu nasıl iptal edebilirim.
Öyle bir ayar var mı. Mesela kapat deyince sormadan kaydetsin. Veya sormadan kaydetmeden çıksın.
Şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Makro ile yapılabilir.
Bu işlemi yapmak istediğiniz dosyanın ThisWorkbook kod bölümüne aşağıdaki kodu kopyalayıp deneyiniz.

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

 

[muratgunay48]

Teşekkür ederim. Bu kod ile kaydederek mi kapatacak, yoksa kaydetmeden mi.

 

[ÖmerBey]

Bu kodla kaydetmeden kapatırsınız. Kaydederek kapatmak için koddaki 0 değerini 1 yapmalısınız.

 

[muratgunay48]

İlginize teşekkür ederim. Ya ben yapamadım,
Öncelikle bendeki normal bir excel dosyası, macro içerebilen değil. Sıkıntı olur mu. Alt+F11 yapıyorum. Bu çalışma kitabına tıklıyorum. Macroyu yapıştırıyorum, x'e basıp kapatıyorum. Atladığım bir şey mi var.
Saygılarımla

 

[Korhan Ayhan]

Bir eklenti hazırlanabilir. Fakat sorun şu, sormadan nereye hangi isimle kayıt edecek?

 

[muratgunay48]

Bir eklenti hazırlanabilir. Fakat sorun şu, sormadan nereye hangi isimle kayıt edecek?

Hocam, varolan dosyayı değiştirecek. Aslında benim esas amacım, değiştirmeden kapatsın. Zaten özellikle tarih olduğu için soruyor.
Saygılarımla.

 

[muratgunay48]

Bir eklenti hazırlanabilir. Fakat sorun şu, sormadan nereye hangi isimle kayıt edecek?

EK.
Hocam oldukça büyük bir dosya var. Sağolsun forumdan bir arkadaşımız starter hazırlamıştı. Ben macrosunu hazırladım. Startere tıkladığım zaman macro çalışıyor ve benim excel dosyamı çalıştırıyor. Fakat dosya kapanmıyor. Çünkü tarih var içinde (hem de çok) mutlaka soruyor. Ve ben kaydetme diyorum. Bunu sormadan kapatsın. Kaydetmeden.

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

Zaten arkadaşımızın yazdığı bu kod ile (Close 0) değeri ile kaydetmezmiş. Ama ben kodu yapıştırmayı beceremedim sanırım. Dediğim gibi Alt+11 yaptım. Bu çalışma kitabına yapıştırdım. Kapattım (kaydet yok, x tıkladım kapattım)

 

[ÖmerBey]

Merhaba Murat Bey,
Makro kodları .xlsx uzantılı dosyalarda kaydedilmez. Bu sebeple siz kodu doğru yere keydetseniz de dosyada makro kodu kayıtlı kalmayacaktır. Dosyanızın xlsm uzantılı makro içerebilen dosya olması veya xls uzantılı 97-2003 excel dosyası olması gerekiyor. Bununla birlikte kodu dosyanıza kopyaladıktan sonra bir defa kaydetmeniz gerekiyor ki; dosyaya makro kodu işlensin.
Umarım sorununuza uygun bir biçimde açıklayabilmişimdir.

 

[muratgunay48]

Merhaba Murat Bey,
Makro kodları .xlsx uzantılı dosyalarda kaydedilmez. Bu sebeple siz kodu doğru yere keydetseniz de dosyada makro kodu kayıtlı kalmayacaktır. Dosyanızın xlsm uzantılı makro içerebilen dosya olması veya xls uzantılı 97-2003 excel dosyası olması gerekiyor. Bununla birlikte kodu dosyanıza kopyaladıktan sonra bir defa kaydetmeniz gerekiyor ki; dosyaya makro kodu işlensin.
Umarım sorununuza uygun bir biçimde açıklayabilmişimdir.

Merhaba Ömer bey. Öncelikle ilginize teşekkür ederim.
Dosyam macro içerebilen excel dosyası

Şuraya yazıyorum https://i.hizliresim.com/bv0NEG.png kapatıyorum. (kaydederek)

Sonra tekrar açıyorum, kapatırken yine soruyor. https://i.hizliresim.com/Yd9zEA.png

Saygılarımla.

 

[Korhan Ayhan]

Kod kitap kodudur. Modüle değilde, ThisWorkbook ya da BuÇalışmaKitabı bölümüne uygulamalısınız.

 

[muratgunay48]

Kod kitap kodudur. Modüle değilde, ThisWorkbook ya da BuÇalışmaKitabı bölümüne uygulamalısınız.

ThisWorkbook bölümünde de deniyorum olmuyor. https://i.hizliresim.com/qADg5B.png
Sizi de meşgul ediyorum ama.

 

[ÖmerBey]

Tekrar merhaba,
Eğer bilgisayarınızda makrolara izin vermediyseniz işlemi doğru yapsanız da isteğiniz gerçekleşmeyecektir.
Makro güvenlik ayarlarını düşürmek konusunda şuradaki makaleyi inceleyebilirsiniz.
Ekteki dosyada yukarıdaki kodun uygulanmış hali bulunmaktadır, deneyebilirsiniz.
İyi çalışmalar...

 

[muratgunay48]

Tekrar merhaba,
Eğer bilgisayarınızda makrolara izin vermediyseniz işlemi doğru yapsanız da isteğiniz gerçekleşmeyecektir.
Makro güvenlik ayarlarını düşürmek konusunda şuradaki makaleyi inceleyebilirsiniz.
Ekteki dosyada yukarıdaki kodun uygulanmış hali bulunmaktadır, deneyebilirsiniz.
İyi çalışmalar...

Öncelikle teşekkür ederim.
Makroya izin verince çalıştı, kapatınca sormuyor. Fakat exceli kapatınca boş bir sayfa kalıyor. Macroyu yapıştırdım, save deneme dedim. o kadar.

https://i.hizliresim.com/zGZlJ6.png

Saygılarımla

 

[Korhan Ayhan]

Bu kodu deneyiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Excel.Application.Windows.Count = 1 Then
        Application.DisplayAlerts = False
        Application.Quit
    Else
        ThisWorkbook.Close 0
    End If
End Sub

 

[muratgunay48]

Bu kodu deneyiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Excel.Application.Windows.Count = 1 Then
        Application.DisplayAlerts = False
        Application.Quit
    Else
        ThisWorkbook.Close 0
    End If
End Sub

Hocam öncelikle ilginize teşekkür ederim. Şimdi şöyle bir arkadaşımız starter yazmıştı, üç tane macro hazırladım ben (hafta içi, cumartesi, pazar diye) o startere tıkladığım zaman çalışıyor. Fakat listelerde yüzlerce tarih olduğu için. Kapatırken mutlaka soruyor (kaydet, kaydetme). Ömer arkadaşımızın yazdığı kod da çalışıyor. Örnek olarak gönderdiği dosya da. Ancak kapanınca bir dosya bırakıyor. O dosyayı kapatmam gerekiyor. Kaydetme tıklamayla eşdeğer. Hoş listeler bu durumda gözükmüyor (amaç o zaten) Ama tamamen kapansa.
Bir post ile çok uğraştırdım, farkındayım ama. Hocam size zahmet. (o dosyanın ekran fotoğrafını ekledim)
Saygılarımla.

https://i.hizliresim.com/7BJGPm.png

 

[Korhan Ayhan]

Resim yerine dosyanızı ekleyin bizde test edelim.

 

[muratgunay48]

Resim yerine dosyanızı ekleyin bizde test edelim.

Hocam sanki oldu. Sizin yazdığınız kod ile. Evde olmamıştı (belki macroları kapattım) şu an iş yerinde denedim.
Yine de siz de bakarsanız, size zahmet.
Çok teşekkür ederim. Emeğinize sağlık.

http://www.mediafire.com/file/st8y67n8x62wqlk/DENEME.xlsm/file

 

[Korhan Ayhan]

Şimdi denedim. Hiç sorun olmadan çalışıyor.

 

[muratgunay48]

Şimdi denedim. Hiç sorun olmadan çalışıyor.

Çok teşekkür ederim hocam. Elinize emeğinize sağlık.