Saat makrosu durmuyor

[acakilli]

Merhabalar;

A1 hücremde aktif çalışan bir saat makrom var. Bu makroya bağlı olarak dosyayı kapatıyorum dosya geri açılıyor. Yapmak istediğim dosyayı kapatınca makro dursun.

Dim stopit As Boolean
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub

Sub auto_open()
Module1.clock
End Sub

 

[Haluk]

Saatla ilgili kodun, dosyanın kapanması sırasında durdurulması için; stopit isimli değişkene False değerini atayıp, stopit isimli prosedürün çağırılması gerekiyor.

Bunun için de; aşağıdaki kodu ilave etmeniz yeterlidir.

Sub auto_close()
    stopit = False
End Sub

.

 

[acakilli]

Saatla ilgili kodun, dosyanın kapanması sırasında durdurulması için; stopit isimli değişkene False değerini atayıp, stopit isimli prosedürün çağırılması gerekiyor.

Bunun için de; aşağıdaki kodu ilave etmeniz yeterlidir.

Sub auto_close()
    stopit = False
End Sub

.

Haluk bey merhaba;

Söylediğiniz kodu tam olarak nereye yazmam gerekiyor rica etsem örnek dosya üzerinden paylaşabilirmisiniz. Birde şöyle bir durum var bu açılma olayı sadece bilgisayarda birden fazla excel dosyası açıksa tekrar geri açılıyor. Sadece belirli dosya açıksa kapatılınca tekrar açılmıyor.

 

[Haluk]

Merhaba;
Verdiğim kodu, sizin kodların olduğu yere yapıştıracaksınız.

.

 

[acakilli]

Merhaba;
Verdiğim kodu, sizin kodların olduğu yere yapıştıracaksınız.

.

Haluk bey;

Dediğiniz gibi ekledim ancak açılma sorunu devam ediyor. Mantık olarak dosyanın kapatılma olayına eklememiz lazım bu kodu ama onu nasıl yapacağım.