Word 2016 per VBA nach Zeit schließen

Ein freundliches Hallo an Alle!


Folgende Herausforderung: Ich möchte bei einer 2016 Word Datei per VBA ein schließen nach Zeit einbauen, mit der Frage ob der Mitarbeiter nach ... Minuten noch arbeitet. Ich hab mal Untenstehende Formel gefunden, allerdings schließt die Datei erst, wenn man drauf klickt. Bedeutet die Msg Box kommt nicht und auch die Datei schließt nicht, solange man nicht drauf klickt. Ich weiß, dass es die Möglichkeit gibt eine Datei mit Kollegen zu teilen und gleichzeitig zu bearbeiten. Problem dabei ist, dass meine Kollegen alle auf die 60 zugehen und nicht gerade viel von PC´s verstehen. gerade mal das notwendige. Deswegen wäre dies die einfachste Lösung.


Vielen Dank im Vorhinein!


LG, Piotr


This Document:


Option Explicit

Private Sub Document_Open()
Call prcTimerStart
End Sub


Modul:

Option Explicit

Public Sub prcMsgBox()
Dim objShell As Object
Dim lngReturn As Long
Set objShell = CreateObject("WScript.Shell")
lngReturn = objShell.Popup("Weiterarbeiten?.", 10, "Frage", vbYesNo Or vbQuestion) ' 10 Sekunden
If lngReturn <> vbYes Then
ThisDocument.Save
If Documents.Count = 1 Then Application.Quit Else ThisDocument.Close
Else
Call prcTimerStart
End If
End Sub

Public Sub prcTimerStart()
Application.OnTime When:=Now + TimeSerial(0, 5, 0), Name:="prcMsgBox" '1 Minuten
End Sub