Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mappe automatisch schließen

Mappe automatisch schließen
Stefan
Hallo zusammen,
ich habe hier aus dem Forum einen VBA Code rausgezogen. Dieser soll die Arbeitsmappe automatisch nach Inaktivität eines Users schließen.
In der Arbeitsmappe steht der Code:
Dim altezeit

Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 20, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 20, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub

Im Modul steht folgender Code:
Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub Das Problem ist, die Arbeitsmappe wird immer nach ca. 2,5 Minuten geschlossen, obwohl bei TimeSerial 20 eingetragen ist. Wo muss ich am Code drehen, dass hier eine "Schliessung" nach 8 min. stattfindet.
Gruß
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mappe automatisch schließen
11.05.2010 15:06:53
Stefan
Super Hajo,
vielen Dank! Funktioniert wie gewollt.
Gruß
Stefan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige