gün bitiminde dosyanın kendiliğinden yedeklenmesi

Katılım
6 Ocak 2005
Mesajlar
25
Excel Vers. ve Dili
microsoft ofis 2003 Türkçe
selam harhangi bir excell dosyası nasıl olurda kendiliğinden gün bitiminde d de açılan bir dosyada yedekleyebilirim kendiliğinden saat verildiğinde o saatte yedeklesin yardımcı olabilirmisiniz selamlar sevgiler
 
Katılım
6 Ocak 2005
Mesajlar
25
Excel Vers. ve Dili
microsoft ofis 2003 Türkçe
ben daha yeni acemiyim bu kodu nereye yazıcam
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sn xxrt'nin vermiş olduğu aşağıdaki kodları kopyalayacağınız dosyanın modül sayfasına kopyalayın bunun için araçlar-makro-visual basic düzenleyicisini tıklayın açılan sayfada insert-module 'yi tıkladığınızda bir modül sayfası açılacaktır. Kod bu sayfaya kopyalanmalıdır. Ayrıca koddaki dosyanın kaydedileceği yolu mutlaka kendinize göre değiştirmeyi unutmayın.
[vb:1:bc532fd607]Sub Auto_Open()
'Dosya açılırken eski yedeği siliyor
Kill ("c:\Belgelerim\xx\*.*") 'BU YOLU KENDİNİZE GÃ?RE DEÐİÞTİRİN
'daha sonra yeni yedeği yedekliyor.
Set Copy = CreateObject("Scripting.FileSystemObject")
Copy.CopyFolder "C:\xx", "C:\Belgelerim\" 'BU YOLU KENDİNİZE GÃ?RE DEÐİÞTİRİN
End Sub[/vb:1:bc532fd607]
 
Üst