excel belli bir günden sonra açılmasın

[marlalı1]

arkadaşlar merhaba ekteki dosyada visual basıc bölümünde bir kot var.bu kodun görevi dosyaya belirtiğin bir gün sayısı verdikten sonra dosya açılmıyormuş.ama ben bunu yapamadım.dosyayı incelermisiniz.

 

[marlalı1]

arkadaşlar yokmu bunu yapabilen

 

[Husgvarna]

Aşağıdaki dosyayı inceleyin.

 

[heft]

Selamlar,
Bilmem işinize yarar mı?

Private Sub Workbook_Open()
If Now() >= CDate("30.12.2009") Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
UserForm1.Show
End Sub