Dolu hücrelerin kilitlenmesi

[acolkesen1]

Merhaba,
Belirli bir aralıkta örn; A1:E20 arasında kilidi açılmış içinde veri olan hücreleri hücrelere veri girildikçe değil de butona bağlayacağım bir kod ile kilitlemek istiyorum. Yani;
Sub kilitle ()
Activesheet.Unprotect
if [a1]<>"" then
[a1].locked=true
activesheet.protect
end if
end sub
şeklindeki kodun A1:E20 arasında etkili olmasını istiyorum. Yukarıdaki kodda [A1] yerine [a1:e20] yazıyorum ama olmuyor doğal olarak..
Bu konuda yardımlarınızı bekliyorum.

 

[Orion1]

Sub kilitle ()
Activesheet.Unprotect
[a1:E20].locked=true
activesheet.protect
end sub

 

[acolkesen1]

Merhaba Sayın Gizlen,
İlginize teşekkür ederim. Yazdığınız kod gördüğüm kadarıyla [a1:e20] aralığını tümüyle kilitledikten sonra sayfayı korumaya alır, ben ise bu aralıkta içinde veri olan hücrelerin kilitlendikten sonara sayfanın korunmasını istiyorum. Yani kilitli olamyan hücrelerde sayfa korumasından sonra işlem yapılabilsin.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KİLİTLE()
    ActiveSheet.Unprotect
    Range("A1:E20").Locked = False
    On Error GoTo Hata
    Range("A1:E20").SpecialCells(xlCellTypeConstants, 23).Locked = True
Hata:
    If Err = 1004 Then
    MsgBox "Değer içeren hücre bulunamadı !", vbExclamation
    End If
    ActiveSheet.Protect
End Sub

 

[acolkesen1]

Merhaba Sayın Korhan Ayhan,
İstediğim tam olarak buydu.Çok teşekkür eder esenlikler dilerim.