Goedemorgen,
In een bestand (Gegevens.xlsm) heb ik VBA code opgenomen om van dat bestand na iedere 5 minuten automatisch een kopie op te slaan in een andere map, dit ziet er zo uit:
In 'ThisWorkbook':
In 'Module1':
De problemen die dit met zich mee brengt zijn:
1. Wanneer ik meerdere Excelbestanden geopend heb, maakt het een backup van alle geopende bestanden op, niet alleen Gegevens.xlsm. -> Ik wil alleen Gegevens.xlsm backuppen!
2. Na het afsluiten van Gegevens.xlsm (en het nog open hebben van een ander Excel bestand), opent na 5 minuten vanzelf Gegevens.xlsm weer. -> Na afsluiten wil ik niet dat het bestand automatisch weer geopend word.
Welke aanpassingen in de code moet ik doen om deze twee issues op te lossen? Suggesties?
Hartelijke groet,
Henri
In een bestand (Gegevens.xlsm) heb ik VBA code opgenomen om van dat bestand na iedere 5 minuten automatisch een kopie op te slaan in een andere map, dit ziet er zo uit:
In 'ThisWorkbook':
Code:
Private Sub Workbook_Open()
'Automatisch opslaan
Application.OnTime Now + TimeValue("00:05:00"), "SaveThis"
End subIn 'Module1':
Code:
Sub SaveThis()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs "N:\Back-ups\" & _
Format(Now, "dd-mm-yyyy hh.mm") & " " & _
Application.UserName & " " & _
ActiveWorkbook.Name
Application.OnTime Now + TimeValue("00:05:00"), "SaveThis"
End SubDe problemen die dit met zich mee brengt zijn:
1. Wanneer ik meerdere Excelbestanden geopend heb, maakt het een backup van alle geopende bestanden op, niet alleen Gegevens.xlsm. -> Ik wil alleen Gegevens.xlsm backuppen!
2. Na het afsluiten van Gegevens.xlsm (en het nog open hebben van een ander Excel bestand), opent na 5 minuten vanzelf Gegevens.xlsm weer. -> Na afsluiten wil ik niet dat het bestand automatisch weer geopend word.
Welke aanpassingen in de code moet ik doen om deze twee issues op te lossen? Suggesties?
Hartelijke groet,
Henri
