Sayfada CheckBox' u pasif yapma

[tamer42]

Merhaba,
Ekli dosyada Sayfa1 de 2 adet CheckBox bulunmaktadır.
CheckBox' un bir üst satırınındaki hücre değeri "0" olduğu ilgili CheckBox pasif olsun istiyorum, yani bir seçim yapılamasın, hiç bir değişiklik yapılamasın;

Teşekkürler,
iyi Çalışmalar.

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If [b1] = 1 Then Sayfa1.Shapes("Check Box 2").Value = xlOn
If [b1] = 0 Then Sayfa1.Shapes("Check Box 2").Value = xlOff
End Sub

CheckBox'un Hücre Bağlantısını unutmayınız.

 

[tamer42]

Bu şekilde kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If [b1] = 1 Then Sayfa1.Shapes("Check Box 2").Value = xlOn
If [b1] = 0 Then Sayfa1.Shapes("Check Box 2").Value = xlOff
End Sub

Sn Seyit Tiken ilgilnize teşekkürler,
yalnız benim istediğim ChecBox' un On/Off olarak değil, aktif/pasif olaraktır;
özetle pasif olduğu zaman renginin gri' leşmesi gibi, hiç bir müdahaleye açık olmamalıdır, On/Off olarak değişmesi mümkün olmayacaktır.

Sanırım benzeri Userform üzerinde mümkün oluyordu.

iyi çalışmaalr.

 

[Seyit Tiken]

Bu bahsettiğiniz > Geliştirici > Ekle > ActiveX Onay Kutusu ile oluyor.

 

[tamer42]

Bu bahsettiğiniz > Geliştirici > Ekle > ActiveX Onay Kutusu ile oluyor.

Sn Seyit ilginize çok teşekkürler,

 

[systran]

örnek çalışmayı inceleyiniz. Global bir boolean değişkeni, [B1] hücresine göre durum değiştirir, Checkbox tıklanma olayında buna göre izin verilir. Sadece Gri renk olayı olmadı. Form denetim nesnesidir.

 

[hamitcan]

Activex nesnelerinden CheckBox nesnesi ekleyip deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If [b1] = 1 Then Sayfa1.CheckBox1.Enabled = True
    If [b1] = 0 Then Sayfa1.CheckBox1.Enabled = False
End Sub