AW: Excel automatisch öffnen
24.09.2009 12:51:08
Tino
Hallo,
lege dir im Taskplaner diesen Vorgang an,
in der Tabelle machst Du ein Makro dass die Datei wieder automatisch geschlossen wird.
In etwa so.
kommt als Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Application.Calculate
ThisWorkbook.Save
Application.OnTime Now + TimeSerial(0, 0, 5), "Close_"
End Sub
kommt als Code in ein Modul
Option Explicit
Sub Close_()
If Not Tabelle1.CheckBox1 Then
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close False
End If
End If
End Sub
Eventuell würde ich mir noch eine digitale Signierung für die Datei erstellen,
damit eventuell auch sichergestellt wird das Makros erlaubt sind.
Zum Thema digitale Signierung findest Du bestimmt was über Google oder hier im Archiv.
Um die Datei bearbeiten zu können, würde ich mir einen CheckBox oder so in die Datei
einbauen wo Du dass schließen abschalten kannst.
Dann würde ich das schließen über Application.OnTime um ein bar Sekunden verschieben
um die Zeit zu haben die CheckBox zu aktivieren.
Auch über Application.OnTime findest du einiges hier im Archiv.
Gruß Tino