Automatisch kopie opslaan bij wijzigingen

[Pauw Gauwes]

Voor bepaalde excelsheets moet automatisch een kopie worden opgeslagen in een andere directory.
Daarvoor heb ik een macro in het workbook geplaatst met de volgende regels:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.SaveCopyAs "M:\Corresp\kopie\" & Sheets("Bestand").Range("C2") & "_" & Sheets("Bestand").Range("C1") & "_" & ActiveWorkbook.Name

End Sub

Het probleem is nu dat als ik wat wijzig in de excel sheet en dat niet wil opslaan, dus niet saven, dan wordt in de kopie toch de wijzigingen opgeslagen en dat is dan fout. Er moet dus alleen automatisch een kopie worden opgemaakt als de wijzigingen van de originele sheet worden gesaved. Is daar een aanpassing voor te bedenken, ik zie hem even niet?


wil iemand helpen?

Alvast bedankt

 

[edmoor]

Maak van: Private Sub Workbook_BeforeClose(Cancel As Boolean)
Eens dit: Private Sub Workbook_AfterSave(ByVal Success As Boolean)

De parameter Success kan je dan gebruiken om te controleren of het opslaan van het originele werkboek goed is gegaan.

 

[Pauw Gauwes]

Dit is de oplossing, werkt perfect zo

Bedankt voor de snelle reactie

Groet,

Pauw