Excel schließen - 3 Min unbeaufsichtigt -
18.06.2004 07:46:32
Mandy
ich bin neu hier und man hat mir dieses Forum empfohlen. Ich habe ein kleines
Modul für die Abschaltung von Excel, welches so aussieht:
'=================================================================
Private Sub Workbook_Open()
DaZeit = "0:03:00"
ThisWorkbook.Worksheets("Mappe1").Range("C1") = CDate(DaZeit)
Zeitmakro
End Sub
'=================================================================
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ThisWorkbook.Worksheets("Mappe1").Range("C1") = DaZeit
End Sub
'=================================================================
Option Explicit
Public ET As Variant
Public DaZeit As Date
Sub Zeitmakro()
ThisWorkbook.Worksheets("Mappe1").Range("A1") = ThisWorkbook.Worksheets _
("Mappe1").Range("A1") - CDate("00:00:01")
If ThisWorkbook.Worksheets("Mappe1").Range("A1") 0 Then
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "Zeitmakro"
Else
ThisWorkbook.Close True 'speichern
End If
End Sub
'=================================================================
Nun mein Problem. Wenn die Uhr läuft und das tut sie sehr gut
kann man nicht vernünftig arbeiten.
Wie kann ich das so gestalten, dass die Uhr zwar läuft, man aber
noch immer vernünftig arbeiten kann. Vielleicht braucht man die Uhr
gar nicht im Feld C1 zu sehen, oder man kann sie irgend wie anders
gestalten.
Würde mich sehr freuen, wenn jemand eine gute Idee hat.
Gruß
Mandy