Arbeitsmappe schließen bei Inaktivität

[wavemaster]

Hallo zusammen,
kann mir jemand helfen bei folgendem Problem.
Ich möchte eine VBA die folgendes auslöst.
Nach einer Inaktivität von 2 min soll die Arbeitsmappe gespeichert und geschlossen werden, wenn möglich sollte eine Hinweis Box eingeblendet werden die den Countdown herunterzählt zb. 10 Sekunden.

Habe es mit verschieden Vorschlägen versucht jedoch funktioniert dies nicht.

Wäre super wenn jemand sowas schon mal gemacht  hat.

DAnke

[schauan]

wenn Du unsere Suchefunktion mit dem Stichwort "inaktiv" nutzt, findest Du z.B. das:

Thread-Excel-inaktiv-dann-schliessen

Thread-Automatisch-schliessen-nach-Timer


unabhängig davon,

Habe es mit verschieden Vorschlägen versucht jedoch funktioniert dies nicht.

wäre es gut, zu wissen, ... Dann könnte man schauen, warum.

[Fennek]

Hallo,

wenn "inaktiv" die Zeit nach der letzten User-Aktion ist, z.B. Mouse-move, dann geht:

Code:

Private Declare PtrSafe Sub GetLastInputInfo Lib "user32" (ByRef plii As LASTINPUTINFO)
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long

Public Type LASTINPUTINFO
  cbSize As Long
  dwTime As Long
End Type

Function IdleTime()
Dim LUI As LASTINPUTINFO

LUI.cbSize = LenB(LUI)

GetLastInputInfo LUI

IdleTime = (GetTickCount - LUI.dwTime) / 1000

end function

'Abfrage, hier 99 Sekunden

If  IdleTime > 99 Then

mfg