kodları silip 
kodlarını alttaki gibi yapıp deneyin.Yani o kodları Sub Auto_Close içine yazın sadece.

Sub Auto_Close()

Set ds = CreateObject("Scripting.FileSystemObject")

'ThisWorkbook.Save

    ActiveWorkbook.Save

If ds.FolderExists("C:\Yedek") = False Then ds.CreateFolder "C:\Yedek"

If ThisWorkbook.Path = "C:\Yedek" Then Exit Sub

'If MsgBox("Dosyanýn yedeðini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then

yol = "C:\Yedek\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name

ds.CopyFile ThisWorkbook.FullName, yol

'End If 'Oyomatik yedekleme sonu



ActiveWorkbook.Save

Application.Quit

End Sub