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
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
Kod:
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