Tarih koşuluna göre sütunları korumak veya korumayı kaldırmak

[Believing]

Sayın Uzman arkadaşlar,

Tarih koşuluna göre girilmiş olan sütun verilerini otomatik olarak korumaya almak istiyorum.
Bugünü 25.08.2021 olduğunu varsayarak, gerçekleşen gün 25.08:2021, geciken gün 23.08.2021 olacaktır.
Ekteki örnek puantaj çalışmasının "I3:AM3" aralığında tarihler bulunmakta, "I6:AM206" aralığında ise puantaj verileri bulunacaktır.
Bugünü (25.08.2021) esas alarak, geciken güne (23.08.2021) ait girilen verileri otomatik olarak sütun koruması sağlamak veya kaldırmak istiyorum.
Sayfa koruma şifresini inputbox'a girmek sureti ile sütun korumasını aktif etmek veya kaldırmak için nasıl bir kod kullanmalıyım?

Saygılarımla,

 

[ÖmerFaruk]

Dosyanızdaki kod üzerinde düzeltme yapmamızı istediniz diye anlıyorum.
Gerekli ilaveyi yaptım.

Sub kontrol()
For x = 9 To 39
    If Cells(3, x).Value = Date - 2 Then
    '*****************'
    'İlave satırların başlangıcı'
        Do
        Parola = InputBox("Parola girin")
        If Parola <> "1234" Then
            Hak = Hak + 1
            MsgBox "Hatalı Parola" & Chr(10) & Chr(10) & 3 - Hak & " hakkınız kaldı."
        Else
        GoTo Devam
        End If
        Loop Until Hak = 3
        Exit Sub
Devam:
    'İlavvelerin sonu'       
    '----------------------'
        ActiveSheet.Unprotect 1234
        Cells.Locked = False
        Range(Cells(1, 9), Cells(206, x)).Locked = True
        ActiveSheet.Protect 1234
        Exit For
    End If
Next x
End Sub

 

[Believing]

Sayın Ömer bey,

Çalışmaya bir togglebutton'a ekleyerek bir tıklayınca korumalı, ikinci kez tıklayınca korumanın kaldırılmasını sağlamak için mevcut kodları nasıl revize etmeliyiz?

Saygılarımla,

 

[ÖmerFaruk]

ToggleButton sayfada mı olacak yoksa userform üzerinde mi?
Yukarıdaki kodlar hiç mi çalışmayacak yok sa yukarıdaki kodlar ToggleButton ile mi ilişkilenecek

 

[Believing]

Sayın Ömer bey,

ToggleButton sayfada olacak, bir kez tıklanınca acılan inputBox ile sayfa koruma şifresi girilecek ve caption=Korumayı Kaldır olmalıdır.
ToggleButton bir kez daha tıklanınca tekrar inputBox ile sayfa koruma kaldırılacak ve Caption=Sayfayı Koru şeklinde olmalıdır.

Saygılarımla,