zamanı geldiğinde çalışan makro

[yldrm_06]

arkadaslar ben asagıdakı kodları kullanıyordum eksık olarak lısans suresı gelınce otomatık kendısını kapamasını ıstıyordum ama asagıda yazdıgım kod kapatmıyor karsıma kaydet / farklı kaydet / iptal seceneklerı cıkıyor

benım aklıma da söyle bırsey geldı sımdı buradakı sıstem uyarısı bır kac gun bu sekılde hata verse ve bırkac gun sonra bu dosya artık otomatık kapatsa yanı ılk ıstedıgım sey bu olsa olurmu buna uygun kodu olan arkadaslar varmı acaba tsk ederım.

kullandıgım kod sırası

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

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[security]

İstediğiniz Gibi

Merhaba Bu Kodları Deneyin...