Automatische back-up bij opslaan van bestand (VBA)

Geplaatst in VBA door Exhelp | Tags: , , , , , ,
Van toepassing op: Excel 2003, Excel 2007, Excel 2010, Excel 2013

Ik heb enkele bestanden die ik absoluut niet mag verknoeien of kwijtspelen. In dat geval heb ik ervoor gezorgd dat ik steeds reservekopies heb om op terug te vallen.

Elke keer als ik het bestand sluit gaat onderstaande code een kopie maken.

De naam gaat er als volgt uit zien:

[jaar][maand][dag][uur][minuut][seconde][excel_gebruikersnaam][bestandsnaam]

Plaats onderstaande code in “ThisWorkbook” in de VBA editor. Wijzig het pad “C:\TEMP\Mijn Back-ups\” naar waar jij je back-ups wil plaatsen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.SaveCopyAs "C:\TEMP\Mijn Back-ups\" & _
                          Format(Now, "yyyymmddhhmmss") & "_" & _
                          Application.UserName & "_" & _
                          ActiveWorkbook.Name

End Sub

En dit is het resultaat:

 

3 reacties op “Automatische back-up bij opslaan van bestand (VBA)”

  • Heel mooi deze wil ik ook graag gaan gebruiken ben met de regelmaat iets kwijt

  • Hallo keescar,

    Wat begrijp je precies niet?

    Gr

  • Nog een mooi speeltje dat misschien wel veel belangrijker is dan we denken. Werkt perfect waarvoor mijn weggemeende dank

    Maurice

Plaats een reactie

U moet ingelogd zijn om te reageren.

Login

Forums

Exhelp

Meest recente berichten

TAGS



Creative Commons Licentie
Op dit werk is een Creative
Commons Licentie
van toepassing.