Word bestand afsluiten bij geen gebruik

[tcgjohn]

Hoe kan ik een Word bestand, welke bijv. 10 minuten niet wordt gebruikt automatisch af laten sluiten (vba code). In mijn situatie heeft een medewerker het dagjournaal open. Nu kan een ander op een andere PC (netwerk) er niet in werken. Wel kan je nog kiezen voor later samenvoegen, maar dat vinden vele omslachtig.

 

[Axel Hagg]

Dag John,

Activedocument.close SaveChanges:=wdSaveChanges

Gegroet,

Axel.

 

[arafy]

dag axel,

je vergeet dat hij moet kijken dat deze handeling uitgevoerd wordt nadat er 10 minuten niet mee gewerkt is. ik heb zoiets gelijkaardig ook al gezocht, maar nog niet gevonden.

steven

 

[tcgjohn]

Word en Word document afsluiten na inactiviteit.

Deze onderstaande formule werkt. Echter er is geen inactiviteit van het document in opgenomen.

Option Explicit
'Code plaatsen in ThisDocument!

Private Sub Document_Open()

Application.OnTime Now + TimeValue("00:05:00"), "SluitMij"

End Sub

Deze code in Module plaatsen
Sub SluitMij()

" ThisDocument.Close False 'Sluiten zonder opslaan " of
ThisDocument.Close True 'Sluiten met opslaan
Word.Application.Quit
End Sub

Nu moet alleen een Private Sub Document_Change() event worden geschreven. Kan dat?
Excel voorbeeld: zie o.a. http://forum.pcmweb.nl/archive/index.php/t-3770.html (automatisch afsluiten excel bestand na inactiviteit)

John