Kilitli sayfada belli hücreleri açma

[vivident]

Merhaba

Belli hücreleri kilite olan bir sayfada, sadece U sütunundaki kilitleri açmak istiyorum. Worksheets("Liste").Range("U9:U65536").Unprotect "123"
kodunu kullanınca problem yaşıyorum. Koda nasıl bir modif yapabiliriz

Private Sub CommandButton1_Click()
        Worksheets("Liste").Unprotect "123"
End Sub

 

[YUSUF44]

Hücrenin kilidini kaldırabilmek için öncelikle sayfanın kilidini kaldırmalısınız. Sonra hücre biçimlendirmeden kilit kaldırılıp, tekrar sayfayı kilitleyebilirsiniz.

    ActiveSheet.Unprotect "123"
    Columns("U:U").Select
    Selection.Locked = False
    ActiveSheet.Protect "123"