(10/07/2019, 09:28)halily yazdı: birleştirilmiş hücreler için tüm aralığı seçmek gerekiyormuş)
mesela "j" sütunundakiler bağımsız olduğu için "range("J2")" demek yeterliyken
"B" sütunundaki çift hücreler alttaki tek hücreyle birleştiği için "range("B2:B3")" demek gerekiyormuş

Kod:

With Sayfa1
If .ProtectContents = True Then .Unprotect "1453"
    For x = 4 To 10002 Step 2
        .Range("j" & x).Locked = False
        .Range("B" & x & ":B" & x + 1).Locked = False
    Next
   .Protect "1453"
End With

üstat emeklerine sağlık bu kod bile işimi gördü diğerlerini de kullanacağım.
iyi çalışmalar dilerim emekleriniz için tekrar çok teşekkür ederim.