AÇIK DOSYAYI OTOMATİK KAPATMA(acil destek lütfen)

[hgenc545]

Merhaba,

Bir konuda destek rica ediyorum.
Bir excel dosyasının açık unutulması durumunda yeni kayıt yapılamıyor.
Bu nedenle açıldıktan 10dk sonra, uyarı mesajı vererek, otomatik kapanması gerekiyor. Dosya simge durumuna gelmişse yada bilgisayar dinlenmeye, ekran koruyucu moduna geçmişse dahi kapanmalı...
Elimde aşağıdaki kod var. Ama başka bir dosyanı modülüne yapıştırdıımda çalışmıyor. Yani kodu istediğim hangi dosyaya yerleştirsem çalışması gerekiyor.
Yeni kodu olan vars gönderirse sevinirim. Aşağıdaki kodda değişiklikler gerekiyorsa yine destek rica ediyorum..


Sub Kapat()
Application.OnTime Now + TimeValue("00:10:00"), "Uyar"
End Sub
Sub Uyar()
Dim Mesaj As Object
On Error Resume Next
Hata.Clear
Set Mesaj = CreateObject("WScript.Shell")
If Hata <> 0 Then
MsgBox "Hataor:" & Hata
Else
Mesaj.PopUp "Çalışma Dosyanız 1 Dakika sonra kapanacaktır.", 5, "UYARI", vbOKOnly + vbExclamation
End If
Set Mesaj = Nothing
Application.OnTime Now + TimeValue("00:00:55"), "KaydetKapat"
End Sub
Sub KaydetKapat()
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[YUSUF44]

Bu kodlar üç ayrı makrodan oluşuyor ve makrolar birbirini tetikliyor. Çalışması için öncelikle Kapat makrosunun çalıştırılmış olması gerekiyor. Bunu denediniz mi?