Automatsch back up EXCEL BESTAND

[zanfa11]

Beste

Ik zou graag hebben dat er een back up van een excel bestand dagelijks automatisch gemaakt wordt bij het opslaan omdat deze dagelijks gebruikt wordt door verschillende collega's. Het bestand is beveiligd met het wachtwoord "data".
ZIE BIJLAGE Bekijk bijlage laatsteOpvragen en wegschrijven valid. lettercomb.-2(jp).xlsm

Met vriendelijke groet

 

[HSV]

Bv.
In Thisworkbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook
  .SaveCopyAs Split(.FullName, ".")(0) & "_" & Date & ".xlsm"
 End With
End Sub

 

[zanfa11]

Beste HSV

Van de eerste keer raak. Hartelijk bedankt :thumb::thumb::thumb:

Met vriendelijke groet