Sayfa Koruması olan Excelde İstisna Seçim

[bordo6181]

Merhaba

Sayfa korumalı bir excelim var.

Giriş yap butonuna basınca A sütunundaki hücreler için istisna koymak istiyorum. A sütunundaki hücreler seçilebilsin yani sağ tıklayıp A sütununun seçip Hücre biçimlendir kilitli kısmını kaldırmama rağmen yine seçimi engelliyor.

Sub kilitac()
UserForm2.Label2 = ""
UserForm2.TextBox1 = ""
UserForm2.Show
sifre = UserForm2.Label2
If sifre = "excelwebtr*" Then
ActiveSheet.Unprotect "excelwebtr*"
Application.ScreenUpdating = False
    Cells.Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
Sheets("liste").Protect "excelwebtr*", _
    DrawingObjects:=True, _
    Contents:=True, _
    Scenarios:=True
Else
MsgBox "Hatalı şifre girdiniz"
Exit Sub
End If
End Sub