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ş

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