Automatische backup

frankw · #1 27 May 2009, 11:35

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:

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

Werkt voor mij in ieder geval voor excel 2003.

R0yk3 · #2 8 October 2009, 15:19

Heel handig dank je :D

Kun je de gebruiker die het bestand heeft geopend/opgeslagen ook nog laten zien in de titel?

Sonnema · #3 2 November 2009, 13:18

Onderstaande is met username. Tevens Date aangepast naar Now en de tijd erbij gezet. Voordeel is dat je dan nooit twee keer dezelfde bestandsnaam hebt.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ActiveWorkbook.SaveCopyAs "C:\My Documents\" & _
     Format(Now, "yyyymmddhhmmss") & "_" & Application.UserName & "_" & ActiveWorkbook.Name
  Dim i    As Integer
   End Sub

R0yk3 · #4 2 November 2009, 13:36

Bedankt. Nu kan ik zien wie mijn sheet iedere keer verknalt

Nee, beveiligen werkt niet, teveel plaatsen waarin gewerkt moet worden..
Maar dit werkt perfect

DutchOirs · #5 14 December 2009, 11:51

Citaat:

Oorspronkelijk geplaatst door R0yk3

Bedankt. Nu kan ik zien wie mijn sheet iedere keer verknalt

Nee, beveiligen werkt niet, teveel plaatsen waarin gewerkt moet worden..
Maar dit werkt perfect

Citaat:

Oorspronkelijk geplaatst door frankw

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:

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

Werkt voor mij in ieder geval voor excel 2003.

hoi Royk3,

thanks voor dit prog... maar werkt niet helemaal..

Gebruik een usb stick voor temp. backup's i.g.v. uitval pc altijd de file's van exel nog bijgewerkt :-)

wilde dit file op I:\BackUp-Office\Exel 2003-Office neer zetten, maar kom niet verder dan I:\Backup-Office
Hij maakt wel een backup bij het afsluiten maar niet in de volgende map (Exel 2003-Office), maar zet hem gewoon onder I:\Backup-Office neer

Hier de code die ik gebruik:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs "I:\BackUp-Office\Exel 2003-Office" & _
Format(Date, "yyyy-mm-dd") & " - " & ActiveWorkbook.Name
Dim i As Integer
End Sub

Wat doe ik fout?

Vr. Gr.

Dutch

bsalv · #6 14 December 2009, 12:04

Code:

ActiveWorkbook.SaveCopyAs "I:\BackUp-Office\Exel 2003-Office\" & ...

R0yk3 · #7 14 December 2009, 12:15

Idd, de laatste backslash niet vergeten.

nadeel van usb is dat wanneer anderen het bestand openen ze dus bij opslaan een foutmelding krijgen. Dan kun je mijn inziens beter een generieke opslag gebruiken c:\mijn documenten\ die heeft tenslotte bijna iedereen op zijn machine zitten. En in paranoia modus dan kun jij van deze dir een kopie maken naar je usb.

DutchOirs · #8 14 December 2009, 13:08

He thanks Royk3,

stom helemaal vergeten :-(

Maar het werkt thanks..

Vr. Gr.

Dutch

R0yk3 · #9 14 December 2009, 13:16

Citaat:

Oorspronkelijk geplaatst door DutchOirs

He thanks Royk3,

stom helemaal vergeten :-(

Maar het werkt thanks..

Vr. Gr.

Dutch

Bsalv gaf het antwoord al. honneurs aan hem.

DutchOirs · #10 14 December 2009, 13:58

Ja inderdaad over het hoofd gezien :-(

toen ik je antwoord zag wist ik het ... vandaar

Bsalv ook hierbij thanks voor de moeite...

Vr. Gr.

Dutch

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave