Time Out
18.05.2016 14:33:31
Manfred
habe das TimeOut Makro vor langer Zeit hier im Forum gefunden und angepasst. Es ist bis jetzt immer normal gelaufen.
Mittlerweile haben wir Excel 2013.
Das Makro meine ich wird sehr langsam, ein Arbeiten mit der Excel-Datei ist fasst nicht mehr möglich.
Gibt es für Excel 2013 einen anderen Time-Out so dass man in der Excel-Datei weiterarbeiten kann ?
Für ne Idee wäre ich sehr Dankbar.
Mit freundlichen Grüßen
Manfred
' ***************************************
' DieseArbeitsmappe
' ***************************************
Sub Workbook_open()
'
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
startzeit
End Sub
' ***************************************
' Allgemeines Modul
' ***************************************
Option Explicit
'
' Excel - Datei (mit VBA) bei Inaktivität automatisch beenden?
Dim datA As Date
Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
datA = Now + CDate("0:10:00") ' nach 10 Minuten schließt sich die Datei
Application.OnTime datA, "Schließen"
End Sub
'Diese Arbeitsmappe Sichern
Sub Schließen()
ActiveWorkbook.Close True
End Sub
Sub Zurücksetzen()
'On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
End Sub
'Wichtig: Das Dim muß ganz oben im Modul stehen.
'In diesem Beilspiel wird die Mappe geschlossen, wenn innerhalb von 10 Minuten
'keine Bewegung auf einem Tabellenblatt erfolgte.
'Die Mappe wird dabei gespeichert. Soll dies nicht der Fall sein, ändere True in False.