otomatik kaydetme kullanmaya çalışıyorum

[ariftezer]

otomatik kaydetme kullanmaya çalışıyorum
fakat dosya açılırken hata veriyor

 

[ariftezer]

dosya ekte -----------

dosya ekte -----------

 

[Mahmut Kök]

Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "Kayıt"
End Sub

Sub Kayıt()
ActiveWorkbook.Save
MsgBox "Kitap Kaydedildi"
Call auto_open
End Sub

[/vb:1:adbffee505] gibi satırlar olmamalıdır.

 

[ariftezer]

tşşk
FAKAT ŞÖYLE BİR SORUM DAHA VAR.
EXCEL PROG AÇIK VE DOSYAM KAPALI İKEN , BELİRLEDİĞİM ARALIKLARDA DOSYAYI OTOMATİK OLARAK AÇIYOR ,
AÇMASA OLMAZ MI
DOSYAM AÇIK İKEN ÇALIŞSIN..