Untere Code besagt: Beim öffnen der Datei wird eine Sicherungskopie angelegt.
Funkt. auch prima.
Könnte man diese Sicherungskopie nicht gleich als gezippt,also gepackt (wegen Speicherplatz)anlegen ?
Ist so etwas in Excel überhaubst möglich ?
Gruß
Heinz
Private Sub Workbook_Open()
Application.ScreenUpdating = False
'Ort der Speicherung - Firma
ThisWorkbook.SaveCopyAs "T:\Qs\Innenkontrolle\Heinz & Co\Backup von Gewichtsblätter & _
Wochenumbau\" _
' & Replace(ThisWorkbook.Name, ".xls", "") & Format(Now, " DD.MM.YY hh.mm") & ".xls"
'End Sub