automatische popup

[MarcSch]

Hoi,

ik heb al ergens een VBA gevonden die excel afsluit en saved na 20 seconden
inactiviteit. Graag had ik nu na bvb 10 seconden inactiviteit een popup zien verschijnen op het scherm die de gebruiker verwittigd dat excel automatisch zal afsluiten als hij het niet meer gebruikt.
Weet iemand of dit op een (eenvoudige) wijze klaar te spelen is.

Iedereen alvast bedankt voor de reacties

mvg,


Marc

 

[HSV]

Private Sub aktie()
  Application.OnTime Now + TimeValue("00:00:10"), "tussentijd"
     If tijd > 0 Then Application.OnTime tijd, "ThisWorkbook.Bewaar_Sluit", , False
    tijd = DateAdd("s", 20, Now)
  Application.OnTime tijd, "ThisWorkbook.Bewaar_Sluit"
End Sub

En in een standaard module:

Sub tussentijd()
MsgBox ("Excel zal sluiten over 10 sec." & Chr(10) & "als u geen actie onderneemt")
End Sub

 

[MarcSch]

lukt nog niet....

Harry,

alvast bedankt voor je reactie, ik heb een poging ondernomen om je oplossing te verwerken in mijn excel maar blijf met enkele problemen zitten.
De Msgbox verschijnt bij mij ook terwijl ik vollop bezig ben in het bestand, zou pas mogen verschijnen als ik 30 seconden niets doe.De Msgbox blijft ook staan en bestand sluit dus niet als je de Msgbox niet afsluit.
In bijlage het bestand tot waar ik het krijg, alle hulp is van harte welkom....

Alvast bedankt iedereen

mvg
Marc

Bekijk bijlage TEST AUTOMATISCH SLUITEN met Msgbox.xls