Mappe automatisch schließen
Stefan
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
Anzeige