Macro die het bestand in map opslaat met als naam ,file naam met datum tijd

[davylenders123]

Ik gebruik deze code bij een aantal bestanden.
Deze slaat een back up van het bestand op als ik het bestand sluit.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
ActiveWorkbook.SaveCopyAs "C:\documents\Mijn Back-ups\" & _
                          Format(Now, "yyyymmddhhmmss") & "_" & _
                          Application.UserName & "_" & _
                          ActiveWorkbook.Name
 
End Sub

Kan dit ook door middel van een aangepaste code aan een macro knop te koppelen ?
Zodat zodra de knop wordt ingedrukt een back up wordt weg geschreven in bepaalde map, en niet telkens bij het sluiten.

Zo ja wat moet dan hierboven aan de code gewijzigd worden ?

 

[SjonR]

Als je dit gedeelte in onder een click_event van een knop zet, moet dat lukken.

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

 

[davylenders123]

SjonR

Thanks voor je snelle reactie.

Dit is hem :thumb:

 

[SjonR]

Ik ben ook geen fan van updates maken via BeforeClose of WorkbookOpen, want je hebt totaal geen invloed meer op hetgeen er wordt opgeslagen. Als jij het bestand hebt ver%%$ dan is er geen weg terug met beforclose en als je workbookOpen gebruikt en je voorganger heeft iets ver%^$%$%^, dan ben je ook de L#L.