Hücreleri kilitleyen makro kod

[u.L.a.s]

merhabalar

aşağıda ilgili sheetin vba kod düzeneğine o sheet seçildiği zaman belirttiğim hücreleri kilitleyen bir makro kod var fakat çeşitli varyasyonlar denediğim halde hata alıyorum sürekli acaba nerede eksiklik var bilgilerinizi rica ederim

Private Sub Worksheet_Activate()

Worksheets("14 Etiket").Range("a3,c3,a8,c8,a13,c13,a18,c18,a23,c23,a28,c28,a33,c33").Select
If Selection.Range.Locked = False Then Selection.Range.Locked = True
            If Selection.Range.FormulaHidden = False Then Selection.Range.FormulaHidden = True
                Selection.Range.Protect "xd", DrawingObjects:=True, Contents:=True, Scenarios:=True
                Selection.Range.EnableSelection = xlNoSelection
End Sub

 

[Orion1]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Activate()
activesheet.unProtect "xd"
Worksheets("14 Etiket").Range("a3,c3,a8,c8,a13,c13,a18,c18,a23,c23,a28,c28,a33,c33").Select
If Selection.Range.Locked = False Then Selection.Range.Locked = True
            If Selection.Range.FormulaHidden = False Then Selection.Range.FormulaHidden = True
                activesheet.Protect "xd", DrawingObjects:=True, Contents:=True, Scenarios:=True
                Selection.Range.EnableSelection = xlNoSelection
End Sub

merhabalar

aşağıda ilgili sheetin vba kod düzeneğine o sheet seçildiği zaman belirttiğim hücreleri kilitleyen bir makro kod var fakat çeşitli varyasyonlar denediğim halde hata alıyorum sürekli acaba nerede eksiklik var bilgilerinizi rica ederim

 

[u.L.a.s]

merhaba

şu satırda "If Selection.Range.Locked = False Then" hata veriyor. önceki koddada burada hatayı veriyordu

 

[Orion1]

Böyle deneyin.

Worksheets("14 Etiket").unProtect "xd"

tekrar korumak için;

Worksheets("14 Etiket").Protect "xd"