(24/05/2011, 16:22)DUAYEN yazdı: Lisans isteme veya şifre sorma işini Excel programınızda yapacaksınız, eğer excelden .mdb dosyasına bilgi aktarıyorsanız.
ThisWorkBook modülünde aşağıdaki kodları yapıştırınız.Eğer olmazsa örnek ekleyiniz.

Kod:

If Date >= CDate("30.01.2011") Then
sifre = InputBox("Devam edebilmek için şifre girmelisiniz!,Programın Kullanım Süresi Dolmuştur")
If sifre = "12345" Then
Sheets("Sayfa1").Select
Else
ActiveWorkbook.Close

End If
If sifre = "" Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End If
End If


End Sub

Direkt olarak .mdb dosyasına bir çeşit lisanslama koyamazmıyız? Örnek dosya ek'te mevcut. Excel arayüzü ile .mdb dosyasına kayıt yapılıyor.