Nach Zeit Datei neu öffnen
07.07.2006 14:40:21
Albert
Habe folgendes Problem:
Ich Öffne eine Datei und diese Datei soll nach 5 Minuten immer wieder erneut schreigbeschützt geöffnet werden.
Beim Öffnen der Datei werden über Workbook_open die Symbolleisten ausgeblendet und wird eine Userform aufgerufen.
Habe schon herumprobiert mit ontime. Es gelingt mir auch daß der erneute Aufruf 1x gestartet wird. Jedoch wird die Userform nicht geöffnet. Wahrscheinlich weil beim erneuten Öffnen der Ausführungscode in der alten Arbeitsmappe abgebrochen wird. Und beim erneuten Öffnen die Workbook_open Anweisung in der neuen Arbeitsmappe Anweisung nicht ausgeführt wird.
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "Öffnen"
Worksheets("Namen").Select
Call Allesweg
NU1.Show
End Sub
Sub Öffnen()
Workbooks.Open Filename:= _
"Y:\Datenbanken\Entwürfe\Wocheneinteilung.xls", ReadOnly:=True
Worksheets("Namen").Select
NU1.Show
End Sub