Close nach 1 Minute
13.06.2003 13:40:14
ThomasS
das folgende Makro (nicht von mir) schliesst mein File automatisch nach einer Minute inaktivität; aber nur wenn ein Zellinhalt geändert wurde. Kann mir bitte jemand helfen, das Makro so zu ändern, dass als "Änderungsaktion" auch die Auswahl eines anderen Sheets akzeptiert wird (zusätzlich).
Dim altezeit
Private Sub Workbook_Open2()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 1, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="closeohnespeichern", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "closeohnespeichern"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 1, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="closeohnespeichern", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "closeohnespeichern"
End Sub
Vielen Dank
Thomas
Anzeige