Fonksiyona çalışma tarihi belirleme

[ALPAY]

Excel kitabında hazırlanan fonksiyonlara veya sayfanın geneline en çalışılabilecek bir tarih verebilir miyiz?
Verdiğimiz tarih geldiğinde fonksiyon veya sayfada çalışma imkanı olmasın.
Ayrıca bunu VBA olarak uygalmamız mümkün mü?
Saygılarımla...

 

[umitumit]

belki çözüm olabilir

ben şöyle birşey yapabilirdim bu konuda.
herhangi bir hücreye =bugün() formülü ile otomatik tarih yazdırırdım. mesela a1 hücresine. b1 hücresinede formülün çalışmasını istemediğim tarihi yazardım.
bugün için a1 19.05.2008 olacaktı.
b1 hücresinede mesela 20.05.2008 yazalım.
sonra bu sayfaya yazdığım her fonksiyonu "eğer" ile birleştirirdim.
mesela; =eğer(a1=b1;0;(ilgili formül))
20 mayıs harici a1 b1 e eşit olmayacağı için formül çalışırdı, 20 mayısta ise sıfır değerini verirdi.

macro için yapabileceğim birşey yok

 

[ALPAY]

Yardımlarınız için Teşekkürler, ama ben hazılayacağım çalıma kitabının istenmeyen kişilerin kullanmasını önlemek maksadıyla tarih kullanmak istiyorum. Belirtilen tarih geldiğinde çalışmaz hale gelsin istiyorum.

 

[Biolight]

Merhaba,
Şöyle bir şey olabilir.
tabi kişinin makroları etkinleştirmesi
ilk sayfada ki A1 hücresine müdahale edememesi gerekli
tam güvenli değil yani
ama örnek olması açısından şöyle birşey olabilir.

ThisWorkbook un kod bölümüne yazılacak.

Private Sub Workbook_Open()
Dim izinverilengun As Integer
izinverilengun = 5

If ThisWorkbook.Sheets(1).Range("A1").Value <> "" Then
  If Date >= ThisWorkbook.Sheets(1).Range("A1").Value Then
   ThisWorkbook.Close
  End If
 Else
  ThisWorkbook.Sheets(1).Range("A1").Value = Date + izinverilengun
  ThisWorkbook.Save
End If

End Sub

Kolay gelsin.

 

[ALPAY]

kodların başına
If Date>=Cdate("23.07.2008") then Exit sub

YAZILIRSA OLABİLİR Mİ?

YA DA;

If Date >= CDate("23.07.2008") Then
sifre = InputBox("Devam edebilmek için şifre girmelisiniz!", "Progranım Kullanım Süresi Dolmuştur")
If sifre <> "1234" Then Exit Sub
End If

MsgBox "&#199;al&#305;&#351;an kodlar"

 

[Biolight]

Merhaba,
evet Cdate daha kullan&#305;&#351;l&#305;
ama exit sub olarak kullanmay&#305;n direk excel kitab&#305;n&#305; kapatabilirsiniz.
Not : yazd&#305;&#287;&#305;n&#305;z kodlar&#305; denemek i&#231;in ge&#231;ici s&#252;reli&#287;ine bilgisayar&#305;n&#305;z&#305;n tarihini de&#287;i&#351;tirerek kontrol edebilirsiniz.

Private Sub Workbook_Open()

If Date >= CDate("23.07.2008") Then
sifre = InputBox("Devam edebilmek için şifre girmelisiniz!", "Progranım Kullanım Süresi Dolmuştur")

If sifre <> "1234" Then
 MsgBox "yanl&#305;&#351; &#351;ifre kapat&#305;yoruz"
 ThisWorkbook.Close
End If

End If

End Sub

Kolay gelsin.

 

[ALPAY]

Çok teşekkür ederim.
Saygılarımla...

Ancak fonsiyonlarda buna benzer tarih verme imkanı var mı?