Kullanım Süresi Koymak Hakkında

[Mdemir63]

Arkadaşlar herhangi bir dosyaya veya programa kullanma süresi kotası koymak mümkünmüdür? Yani bir dosyamız veya programımız var 15 gün sonra kullanılamaz hale gelsin böyle birşey nasıl yapılır.

Teşekkürler

 

[Necdet]

Tarih kontrolü yapılabilir ama kullanıcı bunu bilirse sistem tarihini sürekli değiştirerek kullanabilir.

Belki hem tarih kontrolü hemde kullanım adedi olarak düşünülebilir ama ne derece sağlıklı olur onu bilmiyorum

 

[enteresan]

Bu konuda üstadlarımı yormak istemediğim için ben bişeyler açıklamak istedim. Çalışma kitabımızın ThisWorkbook kısmına aşağıdaki kodu yazarsak, kodda belirtilen tarih geçtiğinde, yine kodda belirtilen sayfa otomotik olarak silinmektedir. Aşağıdaki kodu ilgili sayfaya kopyalarsanız, 1 nci sayfanız 15 Ocak'tan sonra silineceğinden, artık kullanamayacaksınız. Yani kullanım süresi bittiğinde kullanılmamasi için bence kökten çözüm.

Private Sub Workbook_Open()
On Error Resume Next
If Date = DateSerial(2007, 01, 15) Then
Application.DisplayAlerts = False
Sheets("Sayfa1").Delete
Application.DisplayAlerts = True
End If
End Sub

 

[Mdemir63]

Arkadaşlar verdiğiniz bilgilere çok teşekkür ederim. Sağolun ama verdiğin kodlar dosyanın açılmasını engelemedi dosya yine açıldı

İyi çalışmalar

 

[Necdet]

Sayın enteresan'ın verdiği kodda son satıra (end sub tan önce) şu komutları eklerseniz dosya otomatik olarak kapanır

    Dosyaadi = ActiveWorkbook.Name
    Workbooks(Dosyaadi).Close SaveChanges:=False

 

[enteresan]

Sayın enteresan'ın verdiği kodda son satıra (end sub tan önce) şu komutları eklerseniz dosya otomatik olarak kapanır

    Dosyaadi = ActiveWorkbook.Name
    Workbooks(Dosyaadi).Close SaveChanges:=False

Teşekkür ederim Necdet Bey, sizin seviyenize yetişebilmek için bi fırın ekmek yememiz lazım. Öğreneceğiz sayenizde bişeyler....

 

[Necdet]

Çok özür diliyorum yukarıda verdiğim kodları end if satırından önce koymak gerek, yoksa her açılışta dosya otomatik kapanır.

Sayın enteresan bende makroyu yeni öğreniyorum, henüz usta düzeyine gelemedim ama uğraşıyorum. Teşekkürler

 

[Mdemir63]

Sayın enteresan'ın verdiği kodda son satıra (end sub tan önce) şu komutları eklerseniz dosya otomatik olarak kapanır

    Dosyaadi = ActiveWorkbook.Name
    Workbooks(Dosyaadi).Close SaveChanges:=False

Teşekkürler şimdi oldu ama dosya açılırken makro etkinleştir yerine devre dışı bırak diyerek kod penceresine girilip bu kodlar silindiğinde yine dosya çalışır (Tabi bilen kişiler için) sizce de öyle olmaz mı?

 

[enteresan]

Evet haklısınız sayın komutan63 ama makro bölümünü şifrelerseniz kimse girip silemez. Tabi şifreyi kırmadıktan sonra.

 

[Mdemir63]

Evet haklısınız sayın komutan63 ama makro bölümünü şifrelerseniz kimse girip silemez. Tabi şifreyi kırmadıktan sonra.

Evet sizde haklısınız.

Saygılar iyi çalışmalar

 

[enteresan]

Sayın Necdet bey,
verdiğiniz kodu denedim ama sanırım "False" olarak belirttiğiniz yer "True" olması gerekiyor. Bi gözatarsanız sevinirim. Saygılar...

 

[Necdet]

Sayın enteresan, sizin kodlarınıza göre haklısınız true olması gerek

 

[Mahmut Bayram]

Benden bir örnek dosya