Hücre Dokunulmazlığında Sorunu

[_Sir_Lancelot_]

Merhaba Arkadaşlar,

Bazı hücrelerde kullanıcının işlem yapmasını engellemek için şu kodu kullanmaktayım fakat limitin üzerine çıkamıyorum. Kodda nasıl bir düzenlemeye gitmeliyim ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1:B7,C9,G9,K9,O9,S9,C21,G21,D13:F13,T13:V13,H13:J13,L13:N13,P13:R13,D25:F25,H25:J25,I14:I15,M14:M15,Q14:Q15,U14:U15,E26:E27,I26:I27,H16,L16,P16,T16,D28,H28,D17:D19,H17:H19,L17:L19,P17:P19,T17:T19,D28:D31,H28:H31]) Is Nothing Then Exit Sub
    [B33].Select
    MsgBox "Bu Hücrede Degisiklik Yapamazsiniz..."
End Sub

Yardımcı olan arkaşlara şimdiden teşekkür ederim...

 

[Ayhan Ercan]

Merhaba
ne demek istediğiniz pek anlaşılmıyor ama anladığım kadarıyla daha fazla hücre belirlemek istiyorsunuz herhalde.

if intercest ile başlayan satırdan bir tane daha yapın...

 

[janveljan]

Hücreler için ad tanımlama kullanabilirsiniz.

 

[_Sir_Lancelot_]

Sayın Ayhan Ercan ve janveljan,

Yardımlarınız için teşekkürler,
bir if intercest daha kullanınca durum düzeldi.