excel kapanıp açılıyor

[Erdem Akdemir]

Arkadaşlar merhaba

Aşağıdaki kodun bulunduğu excel kitabını kapattığımda, dosyayı otomatik olarak yeniden açıyor, hatayı nerede yaptım bulamıyorum

iyi çalışmalar

Dim saat As Date

Sub baslat()
    saat = Now + TimeValue("00:00:01")
    Application.OnTime saat, "auto_open"
End Sub

Sub auto_open()
    Range("e1").Value = Now
    Range("e1").NumberFormat = ("hh:mm:ss")
    Call baslat
End Sub

 

[Korhan Ayhan]

Selamlar,

Defalarca denedim fakat bahsettiğiniz şekilde bir problemle karşılaşmadım.