OK, Pier,
Klein beetje werk, groot gebruiksgemak.
in je "workbook"module
Option Explicit
Private Sub Workbook_Open()
Run "do_something"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "stop_it"
End Sub
in een gewone module
Option Explicit
Public Const sec = 30 '30 seconden
Public when As Variant
Sub do_something()
Dim fname As String
when = Now + sec / 60 / 60 / 24
Application.OnTime when, "do_something"
fname = "C:\Windows\Desktop\" & ThisWorkbook.Name
ActiveWorkbook.SaveCopyAs fname
End Sub
Private Sub stop_it()
Application.OnTime EarliestTime:=when, Procedure:="do_something", schedule:=False
End Sub
Als test staat het op '30 seconden'. Pas aan naar wens.
geniet van de zon :-)
Erik