Automatisk Gem hvert 2. minut

Starter tiden når rgnearket åbnes


Indsæt i thisworkbook modulet:

Private Sub Workbook_Open()
Call Tid
End Sub

Indsæt disse i module:

Public Sub Tid()
Application.OnTime Now + TimeValue("00:02:00"), "GemFil"
End Sub


Public Sub GemFil()
sti = ThisWorkbook.Path & "\"
navn = ThisWorkbook.Name
Application.DisplayAlerts = False
ThisWorkbook.SaveAs sti & navn
Application.DisplayAlerts = False
Call Tid
End Sub

Den sidste Application.DisplayAlerts skal lige sættes til True

Du Styre TOTAL :-)
Det virker 10.4 !!!

Du Styre TOTAL :-)
Det virker 10.4 !!!

§:-)