merhaba arkadaslar
ben asağıdakı kodu kullanıyorum bılgısayarımdakı excel dosyamın bellı bır tarıhten sonra hata vermesını ve dosyanın calısıtrılmamasını ıstıyorum ama tabı bu yetmıyor bılgısayarın sıstem saatını gerı alınca dosya calısma devam etttıgı ıcın leumruk arkadasımız bayaaa bır destek olarak kodu bu konuma getırdı. ama sımdı hata da 15.06.2010 tarıhe kadar beklemesı gerekırken dosya bu kodları yaptıktan sonra tarıhı beklemeden hata vermeye baslıyor yardımlarınız ıcın tsk ederım..
ben asağıdakı kodu kullanıyorum bılgısayarımdakı excel dosyamın bellı bır tarıhten sonra hata vermesını ve dosyanın calısıtrılmamasını ıstıyorum ama tabı bu yetmıyor bılgısayarın sıstem saatını gerı alınca dosya calısma devam etttıgı ıcın leumruk arkadasımız bayaaa bır destek olarak kodu bu konuma getırdı. ama sımdı hata da 15.06.2010 tarıhe kadar beklemesı gerekırken dosya bu kodları yaptıktan sonra tarıhı beklemeden hata vermeye baslıyor yardımlarınız ıcın tsk ederım..
Kod:
Private Sub Workbook_Open()
If Date >= CDate("15.06.2010") Then
Do
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800752egd", vbCritical, "UYARI !"
Loop
ElseIf Date >= CDate("15.02.2010") Then
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800755eFd", vbCritical, "UYARI !"
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
GoTo kapat
End If
Exit Sub
kapat:
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End Sub
Son düzenleme: