• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kayıt

muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,432
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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.
 
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.
Kod: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close 0
End Sub
 
Teşekkür ederim. Bu kod ile kaydederek mi kapatacak, yoksa kaydetmeden mi.
 
Bu kodla kaydetmeden kapatırsınız. Kaydederek kapatmak için koddaki 0 değerini 1 yapmalısınız.
 
İ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
 
Bir eklenti hazırlanabilir. Fakat sorun şu, sormadan nereye hangi isimle kayıt edecek?
 
Korhan Ayhan' Alıntı:
Bir eklenti hazırlanabilir. Fakat sorun şu, sormadan nereye hangi isimle kayıt edecek?
Genişletmek için tıkla ...

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.
 
Korhan Ayhan' Alıntı:
Bir eklenti hazırlanabilir. Fakat sorun şu, sormadan nereye hangi isimle kayıt edecek?
Genişletmek için tıkla ...

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)
 
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.
 
ÖmerBey' Alıntı:
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.
Genişletmek için tıkla ...

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.
 
Kod kitap kodudur. Modüle değilde, ThisWorkbook ya da BuÇalışmaKitabı bölümüne uygulamalısınız.
 
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...
 

Ekli dosyalar

ÖmerBey' Alıntı:
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...
Genişletmek için tıkla ...

Ö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
 
Bu kodu deneyiniz.

Kod: 
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
 
Korhan Ayhan' Alıntı:
Bu kodu deneyiniz.

Kod: 
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
Genişletmek için tıkla ...


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
 
Resim yerine dosyanızı ekleyin bizde test edelim.
 
Şimdi denedim. Hiç sorun olmadan çalışıyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst