Timeout funktion

Nogen der kan hjælpe?

Du kan lægge denne kode i et almindeligt modul:

Sub LukNed()
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Og i modulet ThisWorkbook kan du lægge

Private Sub Workbook_Open()
  Application.OnTime Now + TimeValue("00:30:00"), "LukNed"
End Sub

Så lukker arket ned 30 minmutter efter at det er åbnet. Tiden kan du selv lege med. Desvære lukkes det også, selvom der arbejdes i det. Excel kan ikke se, om brugeren faktisk er aktiv.

Tak for svar

Det er ikke muligt på nogen måde for excel og registrere om brugeren er aktiv?

Hvis man rykker med cursoren, så starter tiden forfra feks.

hvordan giver jeg dig point ?

Ved at acceptere dette svar.

Jo, du kan godt registrere om en bruger taster i en celle eller bevæger cellemarkøren. Men ikke om han fx sidderr og læser i arket. Jeg ser lige på, om man kan starte tiden forfra.

Du kan ev t prøve atr se på dette link, men så du kan se kræver det en del kode, samt en formular, at restarte timeren.

http://groups.google.com/group/microsoft.public.excel.misc/browse_thread/thread/abd7599e7d91bc4d/172e9f13a46ce281?lnk=st&q=excel+timer+restart&rnum=6#172e9f13a46ce281

Hvis man nu brugte Workbook_SheetChange til at sætte Application.OnTime Now + TimeValue("00:05:00"), "LukNed" så burde 'LukNed' køres 5 min efter at der sidst er ændret noget i dit regneark.
Om det kan gøre det du ønsker ved jeg ikke da jeg ikke har testet det :-)