Option Explicit
Private Const TIMEOUTTIME As String = "00:05:00"
Private Declare Function GetQueueStatus Lib "user32" (ByVal fuFlags As Long) As Long
Private Const QS_KEY = &H1
Private Const QS_MOUSEMOVE = &H2
Private Const QS_MOUSEBUTTON = &H4
Private Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
Private Const QS_INPUT = (QS_MOUSE Or QS_KEY)
Private bCancel As Boolean
Sub AutoOpen()
StartCheckingIdle
End Sub
Private Sub WaitForIdle()
Dim t As Double
t = Now
Do While bCancel = False
If GetQueueStatus(QS_INPUT) Then
t = Now
DoEvents
End If
If Now - t >= TimeValue(TIMEOUTTIME) Then Exit Do
Loop
End Sub
Public Sub StartCheckingIdle()
Do Until bCancel
WaitForIdle
If bCancel = False Then
bCancel = True
ThisDocument.Close True
End If
Do Until GetQueueStatus(QS_INPUT) Or bCancel
DoEvents
Loop
Loop
End Sub
Public Sub StopCheckingIdle()
bCancel = True
End SubYasaklı
pen()Sayın @Feyzullah yazdığınız kodu ekledim ama çalışmıyor . Alternatif olarak
Sub Aut
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.
yazdıklarımı tam okumadınız sanırım.Yasaklı
Sayın @Feyzullah Bey öcelikle geç cevap yazdığım için özür dilerim Muhakkak dosyaları. Deneyip yukluyorsunuzdur. Ofis 2016 64 bit 2 ayri bilgisayarda dosya hata verdi. Ama emeginize sağlık.Yüklemiş olduğunuz dosya bende sıkıntısız, sorunsuz şekilde çalışıyor.
Ayrıca yaptığınız açıklamalara göre kodda revizyon yaptım. Buna göre dosya açık olsa da olmasa da belirtilen süre içerisinde word sayfasında klavyede herhangi bir tuşa basılmazsa dosya otomatik kapanıyor.
Bilmenizi isterim: Kodları deneyerek yazıyorum, yüklüyorum.
Profil bilgileinizde kullandığınız Excel 2016 TR sürümünü kullandığınızı yazmışsınız yani 64bit kullandığınızı belirtmemişsiniz.
Yasaklı
Sayın @cakarem konuyu kapatabiliriz. Ilginize çok teşekkür ederim