Hücre Kilitleme

[volki79]

iyi günler arkadaşlar;


Hücre kilitleme yaparken tüm menuler pasif olduğundan filtre yapamıyorum. Nasıl aktif hale getirebilirim. Bu konuda yardımcı olursanız sevinirim.

Sub Makro1()

ActiveSheet.Unprotect "1"

With Columns("AO:AY")
.Locked = True
.FormulaHidden = False

End With

Range("ao1:ay1").Locked = False

ActiveSheet.Protect "1"

End Sub