Automatisch backup van een Excel-map

[Paul Postma]

Bestaat de mogelijkheid binnen Excel om, net als bij Word, via Extra - Opties - tabblad opslaan, aan te vinken, dat er altijd een back-up gemaakt wordt van een werkmap?
Zou nl erg handig zijn ivm met (bijvoorbeeld) collega's die de optie 'opslaan als' niet kennen cq. weigeren te gebruiken .

 

[bandito bob]

In excel heb je auto-herstel.
Deze kan je zelf instellen, Het bestand wordt zo elke ...minuten automatisch opgeslagen.
Misschien heb je hier wat aan.

 

[Warme bakkertje]

Paul, enkele mogelijkheden. te plaatsen in ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim myFileName
    myFileName = ActiveWorkbook.Name
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs "D:\Mijn documenten\Backup\" & myFileName 'Aanpassen naar wens
    Application.DisplayAlerts = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim myFileName
    myFileName = ActiveWorkbook.Name
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs "D:\Mijn documenten\Backup\" & myFileName 'Aanpassen naar wens
    Application.DisplayAlerts = True
End Sub

Mvg

Rudi

 

[snb]

En met een andere extensie

ActiveWorkbook.SaveCopyAs Replace(ActiveWorkbook.Name, ".xls", ".csv")

 

[Paul Postma]

Hoe plaats ik dat in this workbook - waar kan ik dat vinden?

 

[Roncancio]

Hoe plaats ik dat in this workbook - waar kan ik dat vinden?

Ga naar extra - macro - visual basic editor.
Selecteer Beeld - projectverkenner.

Als het goed staat er nu (meestal links) een lijst van de werkbladen en daarbij staat ook ThisWorkbook.

Met vriendelijke groet,


Roncancio

 

[wiki]

Huidig bestand
opslaan als
extra's
algemene opties
altijd reservekopie maken aanvinken

Groet WiKi

Werkt prima als sheet beschadigd raakt kun je deze altijd nog openen