ToggleButton ve inputBox ile sayfa koruma korumayı kaldırma

[Believing]

Sayın Formdaş Arkadaşlar,

Aşağıdaki iki farklı buton ile sayfa koruması sağlıyor veya kaldırıyorum.
Önce bu iki ayaklı işlemi bir togglebutton yardımı ile yapmak, sayfa koruma şifrelerini inputbox ile girerek koruma veya sayfa korumasını kaldırmak istiyorum.
Bu durumda aşağıdaki mevcut kodları nasıl revize etmeliyim?

Saygılarımla,

Sub Sayfa_Koru()
For x = 9 To 39
    If Cells(3, x).Value = Date - 2 Then
        ActiveSheet.Unprotect 123
        Cells.Locked = False
        Range(Cells(1, 9), Cells(206, x)).Locked = True
        ActiveSheet.Protect 123
        Exit For
    End If
Next x
End Sub


Sub Sayfa_Korumasini_Kaldir()
For x = 9 To 39
    If Cells(3, x).Value = Date - 2 Then
        ActiveSheet.Unprotect 123
        Cells.Locked = False
        Range(Cells(1, 9), Cells(206, x)).Locked = False
        ActiveSheet.Unprotect 123
        Exit For
    End If
Next x
End Sub

 

[Believing]

Konu aktif olup, değerli yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub ToggleButton1_Click()
    Dim Parola As Variant, X As Integer
    
    Parola = InputBox("Lütfen şifrenizi giriniz!", "Şifre Girişi")
        
    If Parola = False Or Parola = "" Then
        MsgBox "İşleme devam edebilmeniz için şifrenizi girmelisiniz!", vbCritical
        Exit Sub
    End If
    
    If Parola <> 123 Then
        MsgBox "Hatalı şifre girdiniz!", vbCritical
        Exit Sub
    End If
    
    If ToggleButton1 Then
        ToggleButton1.Caption = "Korumayı Kaldır"
                
        ActiveSheet.Unprotect Parola
        
        For X = 9 To 39
            If Cells(3, X).Value = Date - 2 Then
                Cells.Locked = False
                Range(Cells(1, 9), Cells(206, X)).Locked = True
                Exit For
            End If
        Next X
        
        ActiveSheet.Protect Parola
    Else
        ToggleButton1.Caption = "Sayfaları Koru"
        
        ActiveSheet.Unprotect Parola
        
        For X = 9 To 39
            If Cells(3, X).Value = Date - 2 Then
                Cells.Locked = False
                Range(Cells(1, 9), Cells(206, X)).Locked = False
                Exit For
            End If
        Next X
        
        ActiveSheet.Unprotect Parola
    End If
End Sub

 

[Believing]

Merhaba Korhan bey,

Çok teşekkür ederim.
ALLAH sizden razı olsun.
Kolay gelsin.

Saygılarımla,