Belli bir tarihten sonra Program otomatik silinsin

[jacckhal]

Merhaba değerli üstadlar bende bir Exel prgam var ve oluşturacağım bir kodla belli bir tarihte veye açılışta çalıştırılacak bir kodla program veye içeriğindeki bütün kodlar silinsin istiyorum mümkün mü.
demo yapma kodları var program açılmıyor ama başka bir exel açıkken açmaya çalışırsanız açılıyor Yardımcı olursanız sevinirim.

autorun çalıştığında gelecek bir mesajla sahte mesaja evet denildiğinde exel dosyası silinsin mümkün mü aceba... Teşekkürler..

 

[jacckhal]

kimse yapamıyor mu bunu?
yadım lütfen..

 

[İhsan Tank]

yapar
bak bu kodu boş bir module kopyalayınız

Sub auto_open()
Dim saat1 As Date
Dim saat2 As Date
saat1 = "[COLOR="red"]20/06/2011[/COLOR]"
saat2 = Date
If saat2 > saat1 Then
MsgBox ("Süreniz dolmuş üzgünüm.")
ActiveWorkbook.Close
End If
MsgBox "Kullanım için " & saat1 - saat2 & " gününüz kalmıştır."
If saat1 = saat2 Then
MsgBox "Bu gün SON GÜN"
End If
End Sub

yok olmadı dersen
bu kodu thisworksbook'a kopyalayınız

Option Explicit
Private Sub Workbook_Open()
Dim saat1 As Date
Dim saat2 As Date
saat1 = "[COLOR="Red"]20/06/2011[/COLOR]"
saat2 = Date
If saat2 > saat1 Then
MsgBox ("Süreniz dolmuş üzgünüm.")
ActiveWorkbook.Close
End If
MsgBox "Kullanım için " & saat1 - saat2 & " gününüz kalmıştır."
If saat1 = saat2 Then
MsgBox "Bu gün SON GÜN"
End If
End Sub

bu kodları deneyiniz.
Not : kırmızı yerler tarih bölümüdür.
Not Dosya silinmiyor açılmıyor sadece

 

[Gorarr]

İhsan hocam bana gerekli birşey değilde soru ilgimi çekti. Zaten açık olan bir dosyanın kodlarının silinmesi yada excel dosyasnın silinmesi mümkün değildir sanırım dimi.

 

[İhsan Tank]

İhsan hocam bana gerekli birşey değilde soru ilgimi çekti. Zaten açık olan bir dosyanın kodlarının silinmesi yada excel dosyasnın silinmesi mümkün değildir sanırım dimi.

soruyu net anlamadım.
excel sayfası açıksa kitap kodları siz elle silebilirsiniz o zaman böyle bir koda gerek yok.
ama kapalı olan dosyanın açılmaması gibi bir şey olabilir.
tabi buda makro güvenlik ayarlarına bağlıdır. makro güvenlik ayarlarını yükseltirseniz kodların hiçbir etkinliği olmaz
bir de şöyle bir şey yapabilirsiniz başka bir dosyanız olur o tarih geldiğinde istediğini dosya otomatik silinir. tabi bu dosya açılıp kod tetiklenirse

 

[jacckhal]

Hocam çok teşekkür ederim silmesede dosya açılıp kullanılamıyor çok saolun..

 

[jacckhal]

Peki dosyayı kapattıktan sonra silemiyormu. Vba dosya silme kodlarını uyarlayamazmıyız. Ben çok az biliyorum kodları birleştiremiyorum. olursa çok süper olacak..

 

[muygun]

Peki dosyayı kapattıktan sonra silemiyormu. Vba dosya silme kodlarını uyarlayamazmıyız. Ben çok az biliyorum kodları birleştiremiyorum. olursa çok süper olacak..

Kodları deneyin. (alıntıdır)

Dosyada bir modul açarak içerisine kodları kopyalayın.

Sub autpen()
Application.OnTime Now + TimeValue("00:01:00"), "sill"
End Sub

Sub sill()
If Date >= CDate("20.06.2011") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
end sub

Not: Kodların 2. satırında ("00:01:00") ile dosyanın 1 dk. çalışması sağlanıyor.

 

[jacckhal]

üstadım olmadı silmedi... Teşkkürler..

 

[muygun]

Ekli dosyayı zip olarak masaüstüne kaydedin.
zipten çıkarın ve açın.
1 dk. bekleyin.
Not:Makro güvenlik seviyesinin düşük (önerilmez) olduğunu varsayıyorum.

 

[jacckhal]

Süper oldu üstadım ellerine sağlık....
Tam istediğim gibi...
İhsan hocama da teşekkür ediyorum oda çok güzel ellerinize sağlık.

 

[jacckhal]

Bu kod word ve acces için düzenlenebilirmi.

Sub autpen()
Application.OnTime Now + TimeValue("00:01:00"), "sill"
End Sub

Sub sill()
If Date >= CDate("20.06.2011") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
end sub