Merhaba Arkadaşlar

Eklediğim kodlarla Excel kitabını kapattığım zaman kayıt yapıyor ve C nin altındaki yedek klasörüne yedek alıyor.

Yedek aldığı zaman aynı Excel kitabından 2 tane yedek alıyor. 1 tane yedek almam için kodda nasıl bir değişiklik yapmam gerekiyor.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    

    'Private Sub Workbook_BeforeClose(Cancel As Boolean)'Oyomatik yedekleme başı

Set ds = CreateObject("Scripting.FileSystemObject")

'ThisWorkbook.Save

     ActiveWorkbook.Save

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

ds.CreateFolder "C:\Yedek"

End If

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