Çözüldü X Tarihinden Başlayıp 10 Gün Sonra Dosya Silinsin

[RBozkurt]

Merhaba,

Forumda biraz araştırdım kill komutu ile dosya silme işlemi yapıldığı konusunda biraz bilgi sahibi oldum.

Başlıkta anlaşılacağı üzere;

X tarihinden başlayıp 5 gün sonra dosya açılırsa silinsin. Kendi kendisini imha edecek yani.

X değişkeni 01.01.2022 gibi manuel olacak.

Deneme sürümü vb mantığında aradım forumda denk gelmedi.

 

[halily]

aşağıdaki kodu dener misiniz?
Not: ben başlangıç tarihi olarak dosyanın oluşturulma tarihini aldım ama isterseniz bu tarihi başka bir yerden de alabilirsiniz; dosya ilk çalıştırıldığında belli bir yere gizli bir dosya da oluşturabilir yada excelde belli bir hücreye ilk tarih kaydedilir, tarih oradan da alınabilir
1 - dosyanın oluşturulma tarihini kontrol ediyor 5 günden büyükse
2 - bat dosyası oluşturuyor
3 - bat dosyasını çalıştırıyor
4 - bat dosyası açık tüm excelleri kapatıyor. Not: sadece bir excel dosyasını kapatmayı bulamadım.
5 - dosyayı siliyor
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

aşağıdaki kod diğer excelleri kapatmadan ,sadece silinmesi istenen kitabı kapatıyorHTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[RBozkurt]

aşağıdaki kod diğer excelleri kapatmadan ,sadece silinmesi istenen kitabı kapatıyorHTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Merhaba
.bat dosyası oluşuyor fakat dosya silinmiyor.
El ile denedim yine silinmedi malesef

 

[halily]

alternatif olarak aşağıdaki kod da kullanılabilir
dosyayı silmez ama işi yapan tüm VBA kodlarını sildiğinden dosya sıradan bir excele dönüşür
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

.bat dosyası oluşuyor fakat dosya silinmiyor.
El ile denedim yine silinmedi malesef

<6 yerine >6 yazarak denediniz mi?

 

[RBozkurt]

<6 yerine >6 yazarak denediniz mi?

Manuel olarak bat dosyasını çalıştırdım
Oda Silinmedi. Tahminimce klasör adındaki boşlukdan kaynaklı.
del C:\Users\rb\Desktop\Yeni klasör (2)\imha.xlsm

5. Mesajdaki kodunuzda işimi görür. Onu test edeyim.
Teşekkür ederim.

 

[RBozkurt]

alternatif olarak aşağıdaki kod da kullanılabilir
dosyayı silmez ama işi yapan tüm VBA kodlarını sildiğinden dosya sıradan bir excele dönüşür
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

halily test ettim fakat çalışmadı

 

[RBozkurt]

Yeni dosyada denemiştim

If DateDiff("d", f.DateCreated, Date) < 6 Then GoTo 10
If DateDiff("d", "01.01.2022", Date) < 6 Then GoTo 10 olarak tarih verdim bu sefer kapatıyor. Açamadığım için silindi mi bilmiyorum

 

[arschimet]

Merhaba,
Sayın halily hocamın #3 nolu mesajındaki kodlar sorunsuz çalışıyor. Deneme yaparken halily hocamızın dediği gibi <6 yerine kodu >6 olarak değiştirip denerseniz sanırım sizde de çalışacaktır.

If DateDiff("d", f.DateCreated, Date) > 6 Then GoTo 10

Not: ben workbook açılış olayından Silbat2 sub'ını çağırdım

 

[halily]

Açamadığım için silindi mi bilmiyorum

Dosya formatiniz ne?
Ben denediğimde sorunsuz şekilde sildi.

 

[halily]

hem isme hem klasöre boşluk koyarak da dendim sildi

 

[RBozkurt]

halily arschimet Teşekkür ederim

 

[himmgarip]

Konuyla alakalı bende bir çözüm yazmak istedim.



Gün 10.000 güne ayarlandı. İstediğiniz gün sayısına göre değiştiriniz.
Eğer ki manuel bir tarih vermek isterseniz;

Bu alanı;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu şekilde değiştirebilirsiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.