[ÇÖZÜLDÜ] Zamana bağlı olarak çalışan makro hk.

[enteresan]

sevgili excel meraklıları,
kullanmakta olduğum bir makro var ve bu makro zamana bağlı olarak çalışmakta. Ben bu makro yardımıyla, belirlediğim zamana göre tüm sayfaları gizlemek istiyorum. Aşağıdaki kodumun devamını nasıl değiştirmeliyim. Yardımcı olacaklara teşekkür ederim.

Private Sub Workbook_Open()
On Error Resume Next
zaman = Date
If zaman > DateSerial(2007, 4, 15) Then
Application.DisplayAlerts = False
....
...
...

 

[Orion1]

Merhaba.
Hepsini gizleyemezsiniz.
Bir tane gizlenmemiş kalacak
Yukarıdaki kodların altına aşağıdaki kodları ekleyin.

For i = 1 To Sheets.Count
    If i > 1 Then
        Sheets(i).Visible = False
    End If
Next

 

[enteresan]

sayın sezar,
ilginize teşekkür ederim.
Sanırım bi yerde yanlışlık yapıyorum. Kodu çalıştıramadım. Bunu küçük bir dosya üzerindeuygulayarak yardımcı olursanız minnettar olurum. Saygılar...

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[enteresan]

Teşekkür ederim..

 

[Orion1]

Rica ederim.
İyi çalışmalar.