Automatisch schließen nach Timer

[Rosaceae]

Hallo Zusammen,

ich habe nichts dazu gefunden - aber vielleicht habe ich nach den flaschen Stichworten gesucht.

Folgendes Problem. Wir haben eine Excel Datei, die von mehreren Leuten bearbeitet wird.
Leider kommt es immer wieder vor, dass jemand vergisst diese zu schließen -> gesperrt für andere.

Gibt es eine Möglichkeit eine Exceltabelle nach inaktivität (Zeit x) zu schließen bzw. ein Fenster geöffnet wird in 30 Sekunden wird automatisch geschlossen ?

[Warkings]

Diese Frage umfasst derzeit mehrere Fragen in einer. Es sollte sich nur auf ein Problem konzentrieren, sollte weitere Details enthalten und das Problem verdeutlichen. Sie wurde schon oft gestellt und hat bereits Antworten.

Eine schnelle Google Suche mit den Suchbegriffen "excel vba close workbook after inactivity" ergab u.a. folgende Treffer
How to automatically save and close an Excel file after a certain idle time? (extendoffice.com)
Forcing a Workbook to Close after Inactivity (Microsoft Excel) (tips.net)
VBA Express : Excel - Closing an inactive workbook

Eine weitere Suche liefert z.B. auch einen Treffer für die zweite Frage
Solved: Auto close inactive workbook, w/timed warning message, w/UserForm open test/reset | MrExcel Message Board

[HKindler]

Hi,

hier ist meine eigene Lösung für das Problem. Es besteht aus einer Userform für den Countdown (frm_CountDown), einem Modul für den CountDown (Modul_CountDown) mit der Funktion CountDown() für den Aufruf der Userform und einem Modul für das AutoSchließen (Modul_AutoSchließen) mit den Funktionen Schließen(), SchließenTimer(), SchließenTimerAus() und AutoSchließenStart(). Am Anfang dieses Moduls ist in den Kommentaren beschrieben, wie man die Funktion einbindet.

Die drei Dateien werden im VBA-Editor über "Datei importieren..." in die entsprechende Excel-Datei geladen. Was sonst noch getan werden muss, steht am Anfang von Modul_Autoschließen.

[Fennek]

Hallo,

ein anderer Ansatz:

Für User ohne die Notwendigkeit einer Änderung:

Öffnen im "ReadOnly"-Modus

Wenn jemand doch etwas ändern möchte:

Öffnen mit "ReadOnly"

Schreibrechte erhalten mit Thisworkbook.ChangeFileAccess xlReadWrite

Nach den Änderungen mit Thisworkbook.ChangeFileAccess xlRead
zurücksetzten.

Das dies hin und wieder zu Problemen führen kann, ist möglich.

mfg

[Rosaceae]

Danke euch ich schaue mir das an - wie erwartet, nach falschen Stichworten gesucht - Verzeihung 

[Wolf59]

In "DieseArbeitsmappe" folgendes Eingeben

Dim startzeit
Private Sub Workbook_Open()
On Error Resume Next
Application.OnTime EarliestTime:=Data, Procedure:="Schließen", Schedule:=False
Data = Now + CDate("00:10:00")
Application.OnTime Data, "Schließen"
End Sub

[HKindler]

@Wolf59
1. fehlt die Routine Schließen(), die du ja mit OnTime aufrufst
2. wird die Mappe so stur nach 10 Minuten ohne weitere Warnung geschlossen, egal ob man gerade damit etwas macht oder nicht

[schauan]

Hallöchen,

mal der Vollständigkeit halber noch ein Hinweis auf diesen Beitrag / Thread:
Thread-Excel-inaktiv-dann-schliessen