Hai Rekasa mu.
Pada event workbook close :
dim sPathBackup as string
dim sFileName as string
application.displayalerts=false
sPathBackup="D:\Backup\"
sfilename=thisworkbook.name
if lenb(dir$(spathbackup & sfilename))<>0 then
kill spathbackup & sfilename
end if
thisworkbook.save
thisworkbook.saveas spathbackup & sfilename
Regards.
Kid.
2010/3/30 Rekasa Ku <[email protected]>
>
>
> Salam semuanya terutama para suhu XL-mania
>
> Saya minta bantuan untuk membuat coding vba / macro untuk simpan otomatis .
> Persoalannya, saya ada 2 file , file yang pertama buat harian rutinitas dan
> sering dibuka dan di update,
> ketika file pertama di close otomatis save dan menjadi dua file , file
> pertama dan satu lagi file kedua ,
> yang tempatnya sudah ditentukan di folder mana ( sebagai backup ) dan ini
> berlangsung terus menerus,..
> selalu update dan bisa di overwrite. Tetapi tidak perlu ada lagi konfirmasi
> "file ini sudah ada apakah ingin di overwrite" .
> Nah itu dia penjelasan dari saya dan mudah - mudahan dapat di mengerti .
> Sebelumnya terima kasih .
>
> File 1-----------otomatis save ( isinya sama file 2 )
> File 2-----------otomatis save di tempat berbeda ( isinya sama file 1 )
>
>
>
