• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

gün bitiminde dosyanın kendiliğinden yedeklenmesi

  • Konbuyu başlatan Konbuyu başlatan servet
  • Başlangıç tarihi Başlangıç tarihi
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
 
ben daha yeni acemiyim bu kodu nereye yazıcam
 
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]
 
Geri
Üst