Nieuwe coor voor VBA

[Archimedes]

Hoi,

Onlangs kreeg ik een code voor een programma die na onderzoek wel werkte. Maar nu krijg ik de vraagstelling over het backup van dat programma dat het systeem automatisch om de kwartier backupt, maar wel de oude backup overschrijft.
Is dit mogelijk om dit ook via VBA te doen?
Gaarne hulp in deze.

 

[Wigi]

Zie bij Bestand > Opslaan Als > Algemene opties (in het dialoogvenster zelf, staat wat verborgen) > vinkje aanzetten bij "Altijd backup maken".

Of het daarmee de vorige backup overschrijft weet ik niet. Ook het interval van 15 minuten is daarmee niet in te stellen. Daar heb je dus VBA voor nodig. Zie bij Application.OnTime

Wigi

 

[Archimedes]

nieuwe code voor VBA

Beste Wigi,

Alles in het bestand staat goed.
De Application.OnTime staat dat het om de 15 minuten moet opslaan,
maar dat doet het niet.
De bedoeling is dat de backup wordt overschreven wordt door de nieuwe backup.
Nu moet ik het handmatig backuppen, wat nu niet de bedoeling.
Gaarne een oplossing in deze?

VrGr, Archimedes

 

[Wigi]

Wat is de huidige code?

 

[Archimedes]

nieuwe code voor VBA

Wigi,

Dit is de code die wel werkt alleen handmating.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Next = Now()
End If
End Sub


Code: ‹ Selecteer ›
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:15"), "SaveWorkbook"
End Sub


Code: ‹ Selecteer ›
Sub SaveWorkBook()
ThisWorkbook.SaveAs ("C:\PID" & Format(Now, "hh-mm-ss") & "test.xls")
End Sub

Die Application.OnTime werkt niet zoals het moet.

VrGr, Archimedes