Örnek Kod Açılışta Tarih ve Saat ile Yedek Alma

Sub auto_open()
On Error Resume Next
org = ThisWorkbook.FullName
tarih = Format(Now, "dd_mm_yyyy_hh_mm")
Application.DisplayAlerts = False
Application.StatusBar = "Dosyalar Siliniyor !!!..."
Kill ("D:\Beşiktaş\Karakartal_*.xls")
Application.StatusBar = "Bu uygulama D:\Beşiktaş\Karakartal_" & tarih + ".xls olarak farklı kaydediliyor..."
ActiveWorkbook.SaveAs Filename:="D:\Beşiktaş\Karakartal_" & tarih, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
Application.StatusBar = False
Application.DisplayAlerts = False
Workbooks.Open(Filename:=org).RunAutoMacros Which:=xlAutoDeactivate
Windows("

Sub Auto_Open()
Dim kayityeri As String
Dim yedekdosyaadi As String
    kayityeri = ThisWorkbook.Path & "\"
    yedekdosyaadi = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "_" & Format(Now, "ddmmyyyy_hhmmss")
   
    ActiveWorkbook.SaveCopyAs kayityeri & yedekdosyaadi & ".bak"
End Sub