Dosyanız bozulduğunda veya yanlışlıkla sildiğinizde "Keşke yedeğim olsaydı" dememek için, dosya her kapandığında otomatik yedek alan bir makro yazalım.
Kod (ThisWorkbook - BeforeClose)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim YedekYolu As String
YedekYolu = "D:\Yedekler\Yedek_" & Format(Now, "dd-mm-yyyy_hh-mm") & ".xlsm"
ThisWorkbook.SaveCopyAs YedekYolu
End Sub
Dim YedekYolu As String
YedekYolu = "D:\Yedekler\Yedek_" & Format(Now, "dd-mm-yyyy_hh-mm") & ".xlsm"
ThisWorkbook.SaveCopyAs YedekYolu
End Sub
Siz dosyayı her kapattığınızda, D sürücüsüne tarih ve saat damgalı bir kopyasını sessizce bırakır.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap