Checkbox onaya bağlı koruma

[huseyin610]

Merhaba

Ekli dosyada 61 adet checkbox var.Bunların karşısındaki hücrelerin mesela checkbox1 seçili olduğu zaman C4:E4 aralığının aktif yani yazılabilir olması ,eğer checkbox seçili değilse bu aralığın koruma altında olması ve bu hücerlere girilememesi.

İlk Checkbox için yaptım ancak döngü ile hepsini halledemedim.

Yardımcı olursanız sevinirim.

Saygılar

 

[hamitcan]

Aşağıdaki kodu,Class Module içine;

Public WithEvents Chk As MSForms.CheckBox
Private Sub Chk_Click()
    If Chk.Value = True Then
        Sheets("YENİ").Unprotect
        Range(Chk.BottomRightCell.Offset(0, 1), Chk.BottomRightCell.Offset(0, 3)).Select
        Selection.Locked = False
        Sheets("YENİ").Protect
    Else
        Sheets("YENİ").Unprotect
        Range(Chk.BottomRightCell.Offset(0, 1), Chk.BottomRightCell.Offset(0, 3)).Select
        Selection.Locked = True
        Sheets("YENİ").Protect
End If
End Sub

Aşağıdaki kodu, ThisWorkBook Kısmına;

Dim Chk() As New Class1

Private Sub Workbook_Activate()
ReDim Preserve Chk(61)
For a = 1 To 61
Set Chk(a).Chk = ActiveSheet.Shapes(a).OLEFormat.Object.Object
Next
End Sub

 

[huseyin610]

Teşekkürler