Otomatik Sayfa Koruma Şifresi Kullanımı Kod Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Bir çalışma kitabındaki sayfalara kod yardımı ile "dd.gg.yyyy" formatında ismler verilmektedir. Aşağıdaki kod yardımı ile sayfalar otomatik olarak korumaya alınmaktadır.

Private Sub Workbook_Open()
For a = 3 To Sheets.Count
    If Sheets(a).Name < Format(Now, "dd.mm.yyyy") Then
    Sheets(a).Protect "123"
    End If
Next
End Sub

Yukarıdaki kod günleri dikkate aldığı için, tüm ayların bugünden küçük olan günlere ait sayfaları koruma altına almaktadır.
Yapılmak istenen ise, bugünden küçük olan tüm tarihlere ait sayfaların korumasını sağlamak, bugüne eşit, gün ve ay olarak büyük olan sayfaların korumasını sağlamaktır. Kısacası her yeni günde bu kitabını açtığımızda, bir önceki güne ait sayfaları koruma altına almak istiyorum.
Bunu sağlamak için mevcut kodda nasıl bir değişiklik yapmalıyım. Konuya hakim uzman arkadaşların çok değerli yardımlarını rica ediyorum.


Saygılarımla,
Ömer Ali ÜZÜMCÜ

Örnek Çalışma Linki;
http://s7.dosya.tc/server14/knk27d/Otomatik_Sayfa_Koruma_Ornegi.rar.html

 

[ÖmerBey]

Merhaba,
Koddaki eğer sorgusunu If DateValue(Sheets(a).Name) < Now Then şeklinde değitiriniz.
Bir de 3. sayfa ismi tarih olmadığı için (İndex) hata oluşacaktır. Döngüyü 4'ten başlatınız.

 

[Believing]

Sayın Ömer bey,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden razı olsun.
Son bir sorum olacak; bu çalışma kitabını her açtığımızda bugüne ait sayfadan başlamasını nasıl sağlarım.


Saygılarımla,

 

[ÖmerBey]

Rica ederim, Allah hepimizden razı olsun.
Yukarıdaki kodun sonuna Sheets(Format(Date, "dd.mm.yyyy")).Select satırını ekleyiniz.

 

[Believing]

Sayın Ömer bey,

Çok teşekkür ederim.
ALLAH sizi sevdiklerinize, sevdiklerinizi de size bağışlasın.
CUMA günüzü kutlar, hayırlara vesile olmasını dilerim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[ÖmerBey]

Eyvallah,
Hep birlikte nice Cuma'lara diyelim o zaman.
Hayırlı günler, iyi çalışmalar...