Analog Saat dosya açıldığında otomatik çalışır mı?

[Mdemir63]

Selamlar
Arkadaşlar ekteki dosyada Analog saat butona basınca çalışıyor. bunun yerine dosya açıldığında otomatik çalışır mı?

Saygılar

 

[halit3]

kodu buçalışmakitabı na yapıştır.

Option Explicit

Dim analogsaat As Boolean

Private Sub Workbook_Open()
analogsaat = Not (analogsaat)
    Do While analogsaat = True
    DoEvents
    Range("A1") = Now()
    Loop
End Sub

 

[Mdemir63]

Selamlar
Hocam dediğinizi yaptım ancak dosya açılmıyor.

 

[halit3]

dasya ekte

 

[Mdemir63]

Teşekkürler hocam

Saygılar