|
Als je onderstaande code opslaat in je VBA project in het blad "This Workbook" wordt er iedere keer dat je je excel bestand afsluit een copy voorzien van datum + naam werboek geplaatst in je vooraf aangegeven map. Op de plaats waar nu "volledig pad waar backup bestand moet komen" vervangt voor de locatie waar de backup bestanden moeten komen wijzigt in bijvoorbeeld C:\blablabla\backup\ komen ze daar te staan.
Code: (van Frankw)
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.SaveCopyAs "Volledige pad waar backup bestand moet komen" & _ Format(Date, "yyyy-mm-dd") & " - " & ActiveWorkbook.Name Dim i As Integer End Sub
|