hata msj vererek kapatma

[yldrm_06]

slm arkadaslar aşağıdakı kodları ben değerleme yaptım ama bazı noktalarda hata erıyor benım ıstedıgım sey örnek excell 15.06.2010 tarıhıne kadar sıkıntısız calısacak ve bu tarıhte hata msj verecek asağıdakı gıbı 25.06.2010 bu hatayı sonsuz sekılde verecek ve bu dosyanın 25.06.2010 tarıhınden sonra acılmayacak hata uzerıne hata verecek. buna göre bir makro yazabılırmıyız.
şimdiden tsk ederım.

Private Sub Workbook_Open()
If Date >= "15.06.2010" Then
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800752egd", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
If Date >= "25.06.2010" Then
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800755eFd", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "GİRİŞ" Then
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End If
End Sub

 

[leumruk]

Merhaba,
Open prosedürünü aşağıdaki kodla değiştirin.

Private Sub Workbook_Open()
If Date >= CDate("25.06.2010") Then
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800752egd", vbCritical, "UYARI !"
GoTo kapat
ElseIf Date >= CDate("15.06.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

 

[yldrm_06]

merhaba,

yardımlarınız için tsk ederım pekı 25.06.2010 tarıhınden sonra kapatma ıslemı yapmasın ve gelen hataya tamam dedıkten sonra tekrar bu hatyı tekrar etse yanı bınevı bılgısayarı kılıtlesın excel ctrl+alt+del ıle kapatabılsın bu dosyayı, bunun gıbı bırsey yapabılırmıyız ve bu program bu tarıhten sonra hata verıyorya bılgısayarın tarıhını gerıde bır tarıh yapınca tekrar calısıyor bu program bunuda engelleye bılırmıyız yanı bu tarıh gectıkten sonra bılgısayarın tarrıhını gerı bıle alsak bu hataları tekrarlama ımkanı varmı acaba..(yanı ne bılıyım merkez bankası tarıhını veya guncel olan bır sıtenın tarıhını ve saat bılgılerını alması gıbı vb)

yardımlarınız ıcın tskler

 

[leumruk]

Merhaba,
Aşağıdaki kodu deneyin.

Private Sub Workbook_Open()
If Date >= CDate("25.03.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

İnternet saati olayını bir araştırayım.

 

[yldrm_06]

merhaba,
tsk edıyorum ama 15.02.2010 tarıhını yapıncada bu hatayı verıyor ve dosya calısıyor...

 

[leumruk]

Hata: tarihle ilgili değil. Sayfa gizleme koduyla ilgili.
Kodu başka bir dosya da mı uyguladınız? Koddaki sayfa ismiyle dosyadaki sayfa isminin aynı olmasına dikkat edin.

 

[yldrm_06]

merhaba,

tsk ederım hata bendeymıs yardımlarınız ıcın tsk ederım farklı bır dosyada uygulamıstım ılk once ondan kaynaklıymış tekrar tşkler

 

[yldrm_06]

merhabalar
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..

Private Sub Workbook_Open()
If Date >= CDate("25.03.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

 

[yldrm_06]

yardım

lütfen yardım arkadaslar