Hallo Ihr Spezialisten,
habe folgendes Problem:
ich möchte in einem Auto_Open Makro festlegen, daß eine Excel-Datei nur 30 Minuten geöffnet ist, dann speichert und sich dann selbsttätig schließt.
Die allgemeinen Dinge sind kein Problem. Ich weiß nur nicht, wie ich die „Zeitschleife“ programmieren soll.
Wer kann helfen?
Bin für jede Idee dankbar.
Vielen Dank im Voraus.
R. Stützer
Verwende WinXP
Office97
Hallo R.
unter „DieseArbeitsmmappe“ folgende beiden Makros:
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
'Löscht Timeraufruf falls Datei vorzeitig geschlossen wird
On Error GoTo Fehler
Application.OnTime erliestTime:=Zeitpunkt, Procedure:="DateiSpeichernSchliessen", Schedule:=False
Fehler:
End Sub
Private Sub Workbook\_Open()
Set wbThis = ThisWorkbook
Zeitpunkt = Now + 30 / 60 / 24
Application.OnTime erliestTime:=Zeitpunkt, Procedure:="DateiSpeichernSchliessen"
End Sub
In ein Modul die Deklaration der Variablen und das Makro zum Speichern/Schließen
Public wbThis As Workbook, Zeitpunkt As Date
Sub DateiSpeichernSchliessen()
If wbThis.Saved = False Then wbThis.Save
wbThis.Close
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Frank,
werde das mal probieren.
Vielen Dank erstmal.
Gruß Roland