kullanım süresi

[marimar]

merhaba arkadaşlar excel'e kullanım süresi koyabilirmiyiz.programlarda olduğu gibi mesela.bilgisayarda ilk açılışından 10 gün sonra excel kitabı kullanım süresi doldu diye uyarı verip kapansın

 

[Necdet]

Merhaba,

Ekteki dosyada birşeyler yapmaya çalıştım, programın çalışabilmesi için belli şartlar gerekli.

Örneğin dosyada "Sifre" adlı bir sayfa oluşturdum ve kontrolleri bu sayfadaki A1 ve B1 hücrelerinde yaptım.

Dosya ilk kullanımda A1 ve B1 hücresine günün tarihi yazılıyor. Sonra her açılışta B1 hücresine günün tarihi yazılıyor. B1 hücresi ile A1 hücresi arasında 10 gün ve sonrası fark varsa otomatik olarak kapanıyor.

"Sifre" adlı sayfanın gizlenmesi gerekir. Makrolar etkinleştirilmediğinde herhangi bir kontrol doğal olarak çalışmayacaktır. Bu sizin dosyanızdaki diğer makroların çalışmasına yada çalışmamasına bağlı. Makrosuz çalışamayacaksa kişi mecburen makroları girişte etkinleştirecektir. Anca bu durumda çalışır.

Workbook daki makro :

Sub Workbook_Open()
Dosya_Adi = ThisWorkbook.Name
Set s1 = Sheets("Sifre")
If s1.[A1] = "" Then
   s1.[A1] = Date
End If
 
s1.[B1] = Date
If s1.[B1] - s1.[A1] >= 10 Then
   Workbooks(Dosya_Adi).Close SaveChanges:=False
End If
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Bir örnekte benden.

Option Private Module
Sub auto_open()
If Date >= CDate("10.10.2007") Then
ActiveWorkbook.Save
End If
MsgBox "Kullanım süresi dolmuştur."
ActiveWorkbook.Close
End Sub