Sayın
@Feyzullah yazdığınız kodu ekledim ama çalışmıyor . Alternatif olarak
Sub Aut

pen()
Application.OnTime Now + TimeValue("00:05:00"), "Dosyayı_Kapat"
End Sub
Sub Dosyayı_Kapat()
ActiveDocument.Save
Application.Quit
End Sub kodunu yazdım yine çalışmadı. Ayrıca simge durumuna küçültülmeden de süre bitiminde dosyayı kapatmalı arkadaşlar dosyayı masa üstünde simge durumuna KÜÇÜLTMEDEN acık bırakıp gidiyor 5 katlı bir ofis işimiz çok zor oluyor . Hiç işlem yapılmasa süre bitince kaydedip kapatsa daha iyi olur yoksa ekranda açık olduğundan bu makro çalışsa bile amacına çok az hizmet eder.
Emeğiniz için teşeşkkür ederim. Umarım ilgilenebilirsiniz.