Otomatik yedekleme

[magnet2014]

Arkadaşlar merhaba,

Formdan aratarak bulduğum aşağıdaki dosya otomatik yedek alma kodunu dosyama uyguladım. Ancak 3 güne bir yedeklenen dosyaların her biri 3 gün sonra kendi yedeğini alıyor Dolayısıyla yedek dosyam çok kabardı. Alınan yedek dosyanın kendini yedeklemesini nasıl engellerim? Aklıma yedeklerken makro etkin olmayan dosya formatında kopyalarsa sorunun çözülebileceği geldi Siz ne dersiniz?

Private Sub Workbook_Open()
Dim a
Dim klasor As String
Set a = CreateObject("scripting.filesystemobject")
klasor = "W:\Engineering\2016 Proje Takip\Yedek\"

If a.FileExists(klasor & "Teknik_" & Date - 2 & ".xlsm") = True Then Exit Sub
If a.FileExists(klasor & "Teknik_" & Date - 1 & ".xlsm") = True Then Exit Sub
If a.FileExists(klasor & "Teknik_" & Date & ".xlsm") = True Then Exit Sub
Dim kopyayolla, dosyam As String
Dim frmt As Long
frmt = Application.DefaultSaveFormat
Application.DefaultSaveFormat = ThisWorkbook.FileFormat
dosyam = "GOC TAKIP_" & Date & ".xlsm"
kopyayolla = klasor & dosyam
ThisWorkbook.SaveCopyAs kopyayolla
Application.DefaultSaveFormat = frmt
dosyam = vbNullString
End Sub

 

[mancubus]

workbook_open olay kodu yerine normal kod kullanarak. bu

aksi takdirde bu olay kodunu içeren bir dosya her açıldığında kod kendiliğinden çalışır.