proğramın Kendini Belirli Bir Tarihte Kendini Silmesi

[Tokluca]

İyi akşamlar.Kullandığım bazı proğramların(tabiki excelde yapılmış) kendini belittiğim tarihte kendini otomatik olarak kendisini silmesini istiyorum.Bunu makro yardımıyla yapmanın imkanı var mı?

 

[skat]

İstediğiniz tarihte çalışma kitabını siler
Kod:
Sub auto_open()
If Date >= CDate("12.02.2008") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub

 

[Tokluca]

Nasıl uygulanacağını biraz anlatabilirmisiniz.Bu kod inset/modül olarak mı kaydedilecek yoksa proğramın içindeki her bir çalışma sayfasına mı kaydedilecek.

 

[mithrill74]

insert-module nin içerisine kodları kaydet
sonrasında dosyayı kaydet
dosyayı kapatıp açtığında dosyan silinmiş olur
tarihi ileriki bir tarihe değiştirirsen, o tarih geldiğinde silinmiş olur dosyan

 

[Tokluca]

iyi günler;
Sürekli deneyiyorum proğram kendini silmiyor.Ekte proğramı veriyorum ben acaba nerde hata yapıyorum.

 

[İsmail Küçükşengün]

iyi günler;
Sürekli deneyiyorum proğram kendini silmiyor.Ekte proğramı veriyorum ben acaba nerde hata yapıyorum.

Ben dosyayı indirdim.

Açıldıkan sonra dosya kendini sildi.

 

[skat]

kardeşim sayfa1 kaydet sileceği günü yaz bende çalışıyor .denemsinide şöyle yap.Kodu çalışma sayfasına yaz tarihide o günün tarihi olarak yaz ve çalıştır sileceğini göreceksin

 

[Amaxx]

ben de dosyanızı açtım ve silindi :mrgreen:

 

[Tokluca]

Başka bilgisayardan denedim siliyor.Ama benim kendi bilgisayarımda özellikle bir kez daha denedim silmiyor(Bilgisayarımın tarihi doğru).Ama sonuçta siliyor.
Yardımcı olan arkadaşlara teşekkürler.

 

[baba_karabatak]

size 2020 yılına kadar silinmeyecekşekilde düzeltilmiş hali

 

[Orion1]

Başka bilgisayardan denedim siliyor.Ama benim kendi bilgisayarımda özellikle bir kez daha denedim silmiyor(Bilgisayarımın tarihi doğru).Ama sonuçta siliyor.
Yardımcı olan arkadaşlara teşekkürler.

Makroları etkinleştirdinizmi?