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