• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
27 Şubat 2007
Mesajlar
353
Excel Vers. ve Dili
2002 Türkçe
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!
 
Selamlar,

Sorunuz günün sorusumu?
 
ben buraya uygun gordum bagıslayin yardımcı olur musunuz?

:cry: :dusun: :dusun: :dusun: :dusun: :dusun: :dusun: :dusun: :dusun: :cry: :cry: :cry: :???: :???: :???: :???: :roll: :roll: :roll:
 
Mümkün, ama ya tarihi unutursanız?
Dosyanız geri dönüşümsüz olarak silinir.
 
o demek ki işten ayrıldınız oradakiler güüüümmm :) iyi fikir
 
:roll: :roll: :roll:
 
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
 
sayın Seyit Tiken,
Dosyanın kendisini de kaydetmesi gerekmiyor mu?Yoksa silinenler geri gelir değil mi?
 
Duruma göre, Kaydet kod satırı ilave edilebilir.
 
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
 
Ve dosya imha oldu.Geçmiş olsun.Ben denedim dosya silindi.:cool:
 
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:
 
Arkadaşlar tedbiri elden bırakmayınız, kodlar kimseye acımaz.
 
Ben Boş bir çalışma kitabında denemiştim.Çok tehlikeli.Dikkat etmek lazım.:cool::roll:
 
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....
 
merhaba

:bravo: basta sayın seyit tiken'e ve tum excelweb.tr uyelerine tesekkur ederim.:bravo: :bravo: :bravo: :rolleyes:
 
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..
 
Gerçekten süper...Ellerinize sağlık Sn. Seyit Bey...
 
Herkesin hain bir dosya silme planı var gibi duruyor. :mrgreen:
 
Geri
Üst