autom. Neustart von Datei
01.09.2022 14:22:41
Datei
mit untem stehendem Makro speichere ich die aktuell geöffnete Excel-Datei alle 30 Sekunden und beende Excle nach 10 Minuten.
Leider startet sich die Datei nach dem Beenden von selbst.
Was muss ich ändern, damit dies nicht mehr geschieht?
Gruß
Chris
Private Sub Workbook_Open()
Application.EnableEvents = True
Application.OnTime Now + TimeValue("00:00:30"), "SaveRV"
Application.OnTime Now + TimeValue("00:10:00"), "CloseMe"
end sub
Sub SaveRV()
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String
qFile = "XY.xlsx"
'Kill tFolder & qFile
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.CopyFile qFolder & qFile, tFolder & qFile, True
Application.OnTime Now() + TimeValue("00:00:30"), "SaveRV"
End Sub
Sub CloseMe()
Application.DisplayAlerts = False
Application.WindowState = xlMinimized
ThisWorkbook.Save
Application.Quit
End Sub