Dosya kapandıktan sonra Excel yeniden açılıyor

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Code içindeki her iki makro ile çalışılan dosya kapandıktan sonra Excel yeniden açılıyor. Yeniden açılmaya nasıl mani olabilirim?

Sub Kaydet_Kapa()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        ThisWorkbook.Save
        ThisWorkbook.Close
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Sub Kaydet_Kapa()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        ThisWorkbook.Save
        ThisWorkbook.Close
        Application.Quit
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Saygılarımla

 

[hakki83]

Tevfik hocam bende yeniden açılma durumu olmadı. Başka bir koddan olabilir belki.

 

[Tevfik_Kursun]

İlginize teşekkür ederim, dediğiniz doğru olabilir
İyi çalışmalar

 

[hakki83]

Yeniden açılmaya sebep olan kodları paylaşır mısınız,

Bir excel dosyası hangi kod ile yeniden açılır öğremmek istiyorum.

 

[Tevfik_Kursun]

Bulamadım ki ...

 

[necati]

Merhaba Arkadaşlar,
Code içindeki her iki makro ile çalışılan dosya kapandıktan sonra Excel yeniden açılıyor. Yeniden açılmaya nasıl mani olabilirim?
Saygılarımla

Merhaba, buna sebep olan kod satırı şöyle birşey olmalı: Mesela 10 saniyede bir ... yap.
Application.OnTime Now + TimeValue("00:00:10"),...
Otomatik olarak her 10 saniyede ... işlemini yap gibi bir şeyler hatırlıyorsanız, o kodun karşılığını kitap kapanışına eklemeniz gerek.

 

[Tevfik_Kursun]

Sayın Arkadaşım,
Hem böyle bir kod yok, hem de başka hiç bir dosya açık değil.
İyi çalışmalar

 

[hakki83]

Açık exceli kapatan
Application.Quit
satırı olduğu gibi,
kapalı exceli başlatan bilmediğimiz bir kod satırı var sanıyorum.
Hocalarımız bilir mutlaka bu satırı.