Excel Arbeitsmappe automatisch nach ca. 10 Minuten schliessen lassen.

[Valkosh]

Hallo Community,

Folgende Situation:

Eine Excel Arbeitsmappe wird von mehreren Personen über das Netzwerk genutzt.
Einige der Personen schliessen diese Mappe nach getaner Arbeit nicht und es ist sehr ärgerlich diese immer wieder darauf hinzuweisen.
Nun, gibt es eine Möglichkeit mit irgend einem "Trick" die Arbeitsmappe zu automatisieren, dass sich diese nach ca. 10 Minuten schliessen lässt?

Vielen Dank für eure Hilfe.

Gruss Valkosh

 

[Mr. Snoot]

Vielleicht das?

Muss man nur klären, ob Änderungen gespeichert werden oder ob die Mappe einfach so geschlossen wird. Evtl. hängt Excel sonst im Speichern-Dialog fest.

 

[Valkosh]

Hey, Danke man. Das war genau das, was ich gesucht habe
vielen Dank!

 

[r15ch13]

Ich habs so gelöst.

Einmal in die Arbeitsmappe:

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

Und einmal in ein Modul:

Sub close_doc()
    ThisWorkbook.Save
    ThisWorkbook.Close (True)
End Sub

 

[Valkosh]

Hi,
Falls es noch jemanden interessiert. bei mir ist's nun so gelöst.

Gruss und Danke für die Hilfe.

---------------------------------------------------------------------------------

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Beginn As Date
Dim Pause As Date
Dim Ende As Date

Beginn = Timer
Pause = 120

Do Until Timer > Beginn + Pause
DoEvents
Loop

Ende = Timer

    Workbooks("Filename.xls").Close SaveChanges:=True

Me.Close

End Sub