Sayfayı korumaya aldığımda Visual Basic hata veriyor

[zaruri]

Arkadaşlar iyi çalışmalar..

Sizlerin çalışmalarından örneklerle ve yardımlarınızla bir sipariş listesi oluşturdum.
Gönderdiğim Müşterilerin kurcalamasını istemediğim hücreler var sayfayı korumaya aldığımda
giriş yapamıyor VB ile yazılan hücreler hata veriyor..

Yardımlarınız beni sevindirecek..

Sizlere çalışmalarınızda Kolaylıklar dilerim.

Çalışma örneği ektedir..

 

[hamitcan]

İlgili kodu aşağıdaki ile değiştirin.

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
SON = Sheets("KAYIT").Cells(65536, "b").End(3).Row + 1
Sheets("KAYIT").Cells(SON, "B") = ComboBox1.Value
Sheets("KAYIT").Cells(SON, "C") = ComboBox2.Value
Sheets("KAYIT").Cells(SON, "D") = ComboBox3.Value
Sheets("KAYIT").Cells(SON, "E") = ComboBox4.Value
Sheets("KAYIT").Cells(SON, "F") = ComboBox7.Value
Sheets("KAYIT").Cells(SON, "G") = ComboBox6.Value
Sheets("KAYIT").Cells(SON, "H") = ComboBox8.Value
Sheets("KAYIT").Cells(SON, "I") = ComboBox9.Value
Unload Me
ActiveSheet.Protect
End Sub

 

[zaruri]

İlginize teşekkür ederim..

fakat sadece B ve J sutununa koroma vermem gerektiğini yazmayı unutmuşum kusura bakmayınız, bir de o şekilde yardımcı olursanız sevinirim..

 

[zaruri]

Koruma ile çözüme kavuştu teşekkür ederim..