Macro ile Excel'de Otomatik Arşiv Yapmak

Merhaba,

Aşağıda paylaşmış olduğum macro kodları, mevcut excelinizi istediğiniz klasöre tarih ve saat ekleyerek excel her açıldığında farklı kaydeder.

Makroyu Excelimize eklemek için bir module ekleyip ilgili kodları içine kopyalıyoruz.Akabinde kaydedilecek klasör bilgisini güncellemeniz yeterlidir.

NOT:
Bu işlemi excel kapatırken yapsın istiyorsanız;
Sub Auto_open() kısmını
Sub Auto_Close() olarak değiştirmeniz yeterlidir.

KODLAR:
Sub Auto_open() Dim DosyaSistemi Set DosyaSistemi = CreateObject("Scripting.FileSystemObject") Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String yer = "C:\Users\NKARA\Documents\YEDEK\" 'Bu alana kaydedilecek adresi yazınız. For i = 1 To Len(ThisWorkbook.Name) If Mid(ThisWorkbook.Name, i, 1) = "." Then Dosya = Mid(ThisWorkbook.Name, 1, i - 1) uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name)) End If Next Application.DisplayAlerts = False Yedek_Dosya_Adı = Dosya & Format(Now, " dd_mm_yyyy_hh_mm") & uzanti Kayıt_Yeri = yer & Yedek_Dosya_Adı On Error Resume Next If Dir(yer) = "" Then MkDir yer On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri ActiveWorkbook.Password = "" Application.DisplayAlerts = True End Sub