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

[baknediycem]

Herhangi bir çalışma kitabı belirlenen tarihte kendi kendini ortadan kaldırabilir mi? En azından verilerini yok edebilir mi? Ya da buna benzer bir durumla ilgili bilgilerinizi paylaşırsanız sevinirim.

Kolay gelsin!

 

[Korhan Ayhan]

Selamlar,

Sorunuz günün sorusumu?

 

[baknediycem]

ben buraya uygun gordum bagıslayin yardımcı olur musunuz?

:dusun: :dusun: :dusun: :dusun: :dusun: :dusun: :dusun: :dusun: :???: :???: :???: :???: :roll: :roll: :roll:

 

[Zeki Gürsoy]

Mümkün, ama ya tarihi unutursanız?
Dosyanız geri dönüşümsüz olarak silinir.

 

[mayvaz]

o demek ki işten ayrıldınız oradakiler güüüümmm iyi fikir

 

[Orion1]

:roll: :roll: :roll:

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
Application.DisplayAlerts = False
If Date = CDate("04.05.2007") Then
Sayfa2.Delete
End If
End Sub

 

[bedersu]

sayın Seyit Tiken,
Dosyanın kendisini de kaydetmesi gerekmiyor mu?Yoksa silinenler geri gelir değil mi?

 

[Seyit Tiken]

Duruma göre, Kaydet kod satırı ilave edilebilir.

 

[Seyit Tiken]

Dosyayı imha eder.

Sub Düğme1_Tıklat()
Application.DisplayAlerts = False
If Month(Now) >= 5 Then
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ThisWorkbook.FullName
Application.Quit
End If
End Sub

 

[Orion1]

Ve dosya imha oldu.Geçmiş olsun.Ben denedim dosya silindi.

 

[bedersu]

Arkadaşlar ,
Kodlar denemek için lütfen boş bir kitap oluşturun ve onda deneyin.
He he ,
Benim denediğim kitap doluydu.Allah'tan bir örneğini foruma yollamıştım...:mrgreen:

 

[Seyit Tiken]

Arkadaşlar tedbiri elden bırakmayınız, kodlar kimseye acımaz.

 

[Orion1]

Ben Boş bir çalışma kitabında denemiştim.Çok tehlikeli.Dikkat etmek lazım.:roll:

 

[enteresan]

Dosyayı imha eder.

Sub Düğme1_Tıklat()
Application.DisplayAlerts = False
If Month(Now) >= 5 Then
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ThisWorkbook.FullName
Application.Quit
End If
End Sub

Sevgili Seyit Hocam,
çok güzel bir kod. Uzun zamandır böyle bi koda ihtiyacım vardı. Allah razı olsun....

 

[baknediycem]

merhaba

:bravo: basta sayın seyit tiken'e ve tum excelweb.tr uyelerine tesekkur ederim.:bravo: :bravo: :bravo:

 

[enteresan]

Arkadaşlar, Seyit hocamın verdiği makroyu auto_open şeklinde evde uyguladığımda çok güzel çalıştı ama işyerinde uyguladığımda makronun da aktif olmasına rağmen hiç bir şey olmadı. Bilgisayardan bilgisayara değişiklik gösterebilir mi acaba. Saygılarımla..

 

[sakoz]

Gerçekten süper...Ellerinize sağlık Sn. Seyit Bey...

 

[xxcell]

Herkesin hain bir dosya silme planı var gibi duruyor. :mrgreen:

 

[kykbt]

Aman dikkat aldığınız kopyada uçuyor