Afsluiten en saven na een bepaalde tijd

[danny147]

Beste,

Volgende code gevonden om een bestand na een bepaalde tijd te saven en af te sluiten
Enkel saved hij de gegevens niet op bij mij, wel afsluiten

Deze code plaats ik in ThisWorkbook

Private Sub Worksheet_Change(ByVal Target As Range)
If close_time Then
Application.OnTime _
EarliestTime:=close_time, _
Procedure:="close_wb", _
Schedule:=False
close_time = Empty
End If
close_time = Now + TimeValue("00:05:00")
run_time
End Sub

Deze in een module

Public close_time
Sub run_time()
Application.OnTime _
EarliestTime:=close_time, _
Procedure:="close_wb", _
Schedule:=True
End Sub

Sub close_wb()
Application.DisplayAlerts = False
With ThisWorkbook
.Saved = True
.Close
End With
End Sub

 

[danny147]

Beste,

Heb het opgelost door ".Saved = True" ter vervangen door ".Save"

 

[HSV]

Danny,

Thisworkbook.close true