Exceli otomatik kapatma

[kursunlu16]

Excel sayfamı otomaitk olarak kapatabilecek bir makro ihtiyacım var.

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:10:00"), "kapa"
'veya
'Application.Wait Now + TimeValue("00:10:00"), "kapa"
End Sub

bunu denedim bi işe yaramadı. belki yalnış bilgi verilmişde olabilir. yardımlarınızı bekliyorum

 

[N.Ziya Hiçdurmaz]

On saniye içinde aktif kitabı kapar.
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:10"), "kapat"
End Sub
Sub kapat()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[gsirin]

merhabalar, bu kodu ben çalıştıramadım.
kod önce açıp sonra mı kapatıyor, yoksa açık olanı mı 10sn sonra kapatıyor ?

teşekkürler.

 

[N.Ziya Hiçdurmaz]

Açık olan kitabı 10sn sonra kapatıyor.