Çalışma sayfasının belirli bir süre sonunda otomatik kapanması.

[mybluecat]

Merhabalar,

Kayıt yaptığım ve sadece benim görmem gereken bir excel dosyasında örneğin 30 sn işlem yapılmadığında kendini kapatması için bir kod var mı?
Ancak bu sırada başka excel dosyaları açık kalacak.Sadece istediğin dosya kapanacak.

Teşekkürler...

 

[Baggwell]

Daha önce açılmış bir konu mevcut,
http://www.excel.web.tr/archive/index.php/t-81963.html

 

[mybluecat]

konuyu inceledim.Örnek dosyada

Dim DaA As Date

Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False
DaA = Now + CDate("0:00:50") 'istediğiniz zamanı girin kapatmak için'
Application.OnTime DaA, "Schließen"
End Sub

Sub Schließen()
ThisWorkbook.Save
Application.Quit
End Sub

Sub Zurücksetzen()
Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False
MsgBox "20 SANİYEDİR İŞLEM YAPMADINIZ VEYA SİZ ÇIKMAK İSTEDİNİZ ", vbCritical, "SECURİTY"
Schließen
End Sub

kodu var.Örnek dosyayı denedim ama "Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False" satırı sarı renkli olarak kod hata verdi.Kodun dili Almanca mı ben mi öyle zannediyorum.Dilden dolayı olabilir mi?