Dosyadaki değişikliği kaydettiğimizde yedekleme yapsın

[numan şamil]

Merhaba Arkadaşlar
Forumda bulduğum aşağıdaki kodlarla dosyayı yedekleme yapıyorum

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")

ThisWorkbook.Save
If ds.FolderExists("D:\YEDEKLER") = False Then
ds.CreateFolder "D:\YEDEKLER"
End If

If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then
yol = "D:\YEDEKLER\" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
End If

End Sub

Yukarıdaki kodlar dosya her kapatıldığında sorup yedekleme yapıyor
Benim istediğim dosya her kapatıldığında değilde dosyanın herhangi bir sayfasında değişiklip yapıldığında excelden çıkmak için (x)bastığımızda excelin yapılan değişikliği kaydetmek istiyormusunuz uyarısına evet dediğimizde sormadan yedeklesin istiyorum
Ayrıca dosyadaki değişikliği kendimiz kaydete basıp kaydettiğimizdede yedeklesin
Sadece dosyadaki bilgilere bakıp çıkış yaparken yedeklemesin istiyorum

 

[esad45]

bende kapatırken her durumda yedeklemesini istiyorum dosyama sizin kodu uyguladım ama olmadı nasıl yapab,lirim

 

[numan şamil]

bende kapatırken her durumda yedeklemesini istiyorum dosyama sizin kodu uyguladım ama olmadı nasıl yapab,lirim

Merhaba
kodları ThisWorkbook Sayfasına kopyalıp deneyiniz
"D" de yedekler klosörü açıp yedekler

 

[numan şamil]

Merhaba arkadaşlar
Benim sorum arada kaynamasın
1. mesajımda bahsettiğim soru günceldir
bir fikri olan varmı?

 

[numan şamil]

Arkadaşlar çözmü aşağıdaki kodlarla buldum
Belki birileri faydalanır
kodlar ThisWorkbook sayfasına yazılmalıdır

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")
If ds.FolderExists("D:\YEDEKLER") = False Then
ds.CreateFolder "D:\YEDEKLER"
End If
If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub
'If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then 'sormasını istemediğim için bu kısmı pasif ettim
yol = "D:\YEDEKLER\" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
'End If
End Sub