belirlenen şart gerçekleşirse o makro bidaha çalışmasın

[takoo]

merhaba arkadaşlar kolay gele.programa, belli bir tarihe gelince açılmama makrosu ekledim.
Private Sub Workbook_Open()

If Date >= "22.06.2007" Then
Application.Visible = False
MsgBox "Çalışmanız kapatılacak"
Application.Quit
End If
End Sub

istediğim olay;bununla beraber bir InputBox ile belirlemiş olduğum bir şifre girilirse , zaman aşımını belirten bu makro bidaha çalışmasın,program eskisi gibi yine çalışsın.yani ana tema o makroyu şifre şartıyla iptal etme,rica etsem yardımcı olur musunuz?

 

[takoo]

Tamam tamam hallettim arkadaşlar,bikaç uğraştım da ...iyi çalışmalar

Private Sub Workbook_Open()
Application.Visible = False
If Date >= "22.06.2007" And InputBox("programın süresi bitti,lütfen anahtarı giriniz ") = "123" Then
Application.Visible = True
Exit Sub
Else

MsgBox "Çalışmanız kapatılacak"
Application.Quit
End If
End Sub