Belirlenen tarihte kendi kendini yok edebilir mi (Çalışma Kitabı)?

[halit3]

alternatif olarak bir kodda burada var

Sub Düğme1_Tıklat()
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Application.DisplayAlerts = False
If Month(Now) >= 5 Then
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
DosyaSistemi.DeleteFile ThisWorkbook.FullName
Application.Quit
End If
End Sub

 

[rustuuslu]

bende niye imha etmedi?bu kodu nereye nasıl koyacağız

 

[tahsinanarat]

Tarihi geldiğinde yedeğini alıp asıl dosyayı imha eder. (belgelerim in içine; Yedek09-26-09 00-43.XLS)
aşağıdaki kodları bir modüle yapıştırınız.

Sub date_backup()
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs isim
End Sub
Sub auto_open()
Call date_backup
If Date >= CDate("26.09.2009") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub

 

[CONANFORCE]

Tarihi geldiğinde yedeğini alıp asıl dosyayı imha eder. (belgelerim in içine; Yedek09-26-09 00-43.XLS)
aşağıdaki kodları bir modüle yapıştırınız.

Sub date_backup()
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs isim
End Sub
Sub auto_open()
Call date_backup
If Date >= CDate("26.09.2009") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub

sayın tahsinanarat hocam ben verdiğiniz kodu yazarak denidim çok güze işe yarıyor fakat yedeğide açmaya kaltığında yedeği yine belgelirmde bırakarak onuda siliyor.
yedek dosyayı açmadan makro güveniğini yükselterek makronun çalışmasını önleyerek modüldeki kodu sildim ve yedekteki bilgilere bu şekide ulaştım. excele yeni başlayan arkadaşlara bu yoluda sunmak istedim. kod mükemmel

 

[tahsinanarat]

Evet bunun yedeğinin orada bu isimle olduğunu siz biliyor olacaksınız, açarken de makroları devre dışı bırakıp açacaksın, sonra imha makrosunu silip kayıt yaparsın,yada içindeki datalarını alıp başka bir dosyaya taşırsın.

 

[Necdet]

Dosyamı oluştururum. O işyerinden ayrıldıktan sonra da dosyam kullanılır.
Böyle şeylere gerek duymadım.

 

[tahsinanarat]

Bence de Doğru olanda budur.