31.12.2010 - saat 23:59 da excel çalışmasın.

[s.savas]

Günaydın arkadaşlar.
Hazırladığım excel sayfası için, 31.12.2010 tarihi saat 23.59 dan sonra belgenin açılmaması için bir makroya ihtiyacım var. Benzer konular muhakkak forumda vardır, ancak farklı başlıklarda veya farklı konular içerisinde işlendiğinden benzer kod bulamdım.
Yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodu ThisWorkbook'un kod bölümüne kopyalayınız.

Private Sub Workbook_Open()
If Date > DateSerial(2010, 12, 31) Then ThisWorkbook.Close SaveChanges:=False
End Sub

 

[usubaykan]

Merhaba;

Alternatif olarak aşağıdaki kodu sayfanızın Thisworkbook kısmına yazın

Option Explicit
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    If Date >= CDate("05.11.2010") And Time >= "08:59:00" Then
    Application.ThisWorkbook.Save
    Application.Quit
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   End If
End Sub

 

[baydeniro]

Paylaşım için teşekkürler

 

[s.savas]

Teşekkür ederim değerli üstatlarım.

 

[usubaykan]

Teşekkür ederim değerli üstatlarım.

Rica ederim ;-)

 

[s.savas]

Merhaba;

Alternatif olarak aşağıdaki kodu sayfanızın Thisworkbook kısmına yazın

Option Explicit
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    If Date >= CDate("05.11.2010") And Time >= "08:59:00" Then
    Application.ThisWorkbook.Save
    Application.Quit
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   End If
End Sub

Hocam makroya;
"Kullanım süreniz dolmuştur." mesajını verdirip, belgeyi kaydetmeden önce de Sayfa2'yi silerek kaydetmesini yaptırabilirmiyiz.

 

[baydeniro]

Sayın usubaykan alternatif kod için çok teşekkürler

 

[usubaykan]

Hocam makroya;
"Kullanım süreniz dolmuştur." mesajını verdirip, belgeyi kaydetmeden önce de Sayfa2'yi silerek kaydetmesini yaptırabilirmiyiz.

Merhaba;

Option Explicit
Private Sub Workbook_Open()
[COLOR=red]    On Error Resume Next
[/COLOR]    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    If Date >= CDate("31.12.2010") And Time >= "23:59:00" Then
   [COLOR=red]MsgBox "Kullanım süreniz dolmuştur !", vbCritical, "Sn : " & Application.UserName[/COLOR]
    [COLOR=red]Sheets("Sayfa2").Delete[/COLOR]
    Application.ThisWorkbook.Save
    Application.Quit
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   End If
End Sub

şeklinde düzenleyiniz.

 

[s.savas]

Merhaba;

Option Explicit
Private Sub Workbook_Open()
[COLOR=red]    On Error Resume Next
[/COLOR]    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    If Date >= CDate("31.12.2010") And Time >= "23:59:00" Then
   [COLOR=red]MsgBox "Kullanım süreniz dolmuştur !", vbCritical, "Sn : " & Application.UserName[/COLOR]
    [COLOR=red]Sheets("Sayfa2").Delete[/COLOR]
    Application.ThisWorkbook.Save
    Application.Quit
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   End If
End Sub

şeklinde düzenleyiniz.

Üstat tekrar teşekkür ederim.
Şöyle bir sorun çıkmaktadır.
Belirlenen sürenin bitiminde dosya açıldığında sayfa2 silinmektedir, ancak dosyayı ikinci kez çalıştırılınca sayfa2 silindiği için kod hatası üretilmekte ve sayfa kapatılamamaktadır. Bunun için şöyle kurgulama yapılabilirmi.

Sheets("Sayfa2").Delete

den önce Sayfa2'nin varlığı sorgulansın, varsa silerek dosya kapatılsın, yoksa silmeden kapatılsın.

 

[usubaykan]

Üstat tekrar teşekkür ederim.
Şöyle bir sorun çıkmaktadır.
Belirlenen sürenin bitiminde dosya açıldığında sayfa2 silinmektedir, ancak dosyayı ikinci kez çalıştırılınca sayfa2 silindiği için kod hatası üretilmekte ve sayfa kapatılamamaktadır. Bunun için şöyle kurgulama yapılabilirmi.

Sheets("Sayfa2").Delete

den önce Sayfa2'nin varlığı sorgulansın, varsa silerek dosya kapatılsın, yoksa silmeden kapatılsın.

[COLOR=#ff0000]On Error Resume Next[COLOR=black]

olduğu sürece hata vermemesi gerekir. Eki inceler misiniz?[/COLOR]
[/COLOR]

 

[s.savas]

Üstat yeni bir excel sayfasında makro sorunsuz çalışıyor, ancak ekteki dosyada sayfa silme işlemini bir türlü gerçekleştiremedim. Tarih kontrolünü yapıp belgeyi kapatıyor, istediğim sekmeyi silmiyor.
Örnek olarak 2011 BÜTÇESİ isimli sekmenin silinmesini yaptıramadım.

 

[Korhan Ayhan]

Selamlar,

Silmemesi gayet normal, çünkü sayfa ismi ile kod içinde kullandığınız sayfa ismi aynı değil!

 

[s.savas]

Korhan hocam, her iki şekilde de yaptım, fakat sonuç alamadım.
Örnek olarak; hem Sayfa10 olarak denedim, hemde 2011 BÜTÇESİ olarak denedim.

 

[s.savas]

Arkadaşlar hatamı buldum, sekme isminde fazladan bir boşluk varmış, sekme ismini kopyalayıp, makrodaki yerine yapıştırınca sonuç verdi.
Tekrar teşekkür ediyorum.

 

[Necdet]

Merhaba,

Bilgisayarın tarihini 1 yıl geriye alırsak bu kodların çalışması durur. O zaman ne yapmayı düşünürsünüz?

 

[s.savas]

Çok haklısınız hocam.
Hazırladığım dosyayı kullanan kişiler sadece bilgisayar okur yazarlığı olan kişiler.1 Ocak 2011 itibari ile silinmesini istediğim sekmelerin silinmesi benim için yeterlidir.
Hocam bu arada sizin çözüm öneriniz nedir, lütfedermisiniz.:hiho: