checkbox kilitleme acilll...

[duman1778]

selam arkadaşlar üzerinde çalıştığım userform üzerinde checkboxlarım . bu checkboxlara tıklandığında ilgili hücreye tarih atamaktadır. istediğim aynı checboxa ikinci kez check atılmasın. kodları yazıyorum.

Private Sub CheckBox1_Click()
Sheets("school-1").Select
Range("c6") = 120
If Me.CheckBox1.Value = False Then
Sheets("school-1").Select
Range("c6") = Date$
Else
Range("c6") = Date$
End If
End Sub

aynı checkboxa bir defa check işareti konulsun.
yardımınız için teşekkür ederim.

 

[leumruk]

Merhaba,
Kodunuzun en alat satırına aşağıdaki kod satırını ekleyebilirsiniz.
CheckBox1.Enabled = False

 

[duman1778]

çok teşekkür ederim kardeşim. eline sağlık