Worddocument opslaan en afsluiten bij geen gebruik met VBA

Goedemiddag,

Ik heb op al heel wat internetsites gekeken. Ik heb hierdoor de volgende VBA code in elkaar gezet. Het werkt alleen nog niet.
Kan iemand hierbij helpen?
Alvast bedankt.
Groeten Manon


'dit gedeelte plaats je in This Document'
Private Sub Document_Open()
close_time = Now + TimeValue("00:05:00")
run_time
End Sub

'hiervan weet ik niet of het goed is en of je dit in "This document" plaatst of in een module'
Private Sub Document_Change(ByVal Target As Range)
If close_time Then
Application.OnTime _
EarliestTime:=close_time, _
Procedure:="close_Document", _
Schedule:=False
close_time = Empty
End If
close_time = Now + TimeValue("00:05:00")
run_time
End Sub


'vanaf hier plaats je in een module'
Public close_time
Sub run_time()
EndTime = Now + TimeValue("00:05:00")
WarningTime = Endtime - TimeValue("00:00:30")
Application.OnTime WarningTime, "WarningMessage", , True
Application.OnTime EndTime, "CloseDocument", , True
End Sub

Sub WarningMessage()
Msgbox "Indien u geen actie onderneemt wordt het bestand binnen 30 seconden gesloten..."
End Sub

Wat wil je precies bereiken?

Onverwacht even uit de roulatie geweest.

Ik wil bereiken dat het worddocument opgeslagen wordt en sluit als iemand 5 minuten er niets mee doet.

gr Manon

Volgende vraag: Waarom ?
Wat gaat er mis als het bestand niet gesloten wordt ?

Er zitten werken meerdere collega's in het bestand dus daarom wil ik graag dat het bestand na 5 minuten geen actie opgeslagen wordt(tbv eventuele wijzigingen) en afsluit zodat een ander in het bestand kan.

Kijk eens of je hier wat aan hebt.

ik ben de macro aan het testen. Tot nu toe werkt de macro alleen als je op uitvoeren klikt (F5).
En het document sloot af toen mij scherm op de spaarstand ging.

Dus ik moet nog even verder testen.

Zodra het werkt zet ik de vraag op sluiten

gr Manon

Ik heb 'm getest, en bij mij deed hij het wel. Dus hij moet aan de praat te krijgen zijn .

Ik ben nu aan het onderzoeken of mijn ICT afdeling eea heeft geblokkeerd.

Altijd weer die ICT-ers

Gesproken met mijn ICT afdeling en we zijn er uit.
De code werkt niet omdat er het document beveiligd is met een wachtwoord. (had ik eerder moeten bedenken)

Valt dit aan te passen in de macro?