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

 

[mancubus]

sadece AO-AY sütunlarında işlem yapılamayacak ve filtre, sıralama, format vs yapılacaksa...

Dim rng As Range
Dim pass As String

pass = "1"

With ActiveSheet
    If .ProtectContents Then .Unprotect pass
    .Cells.Locked = False
    Set rng = .Range("AO1:AY" & .Cells(.Rows.Count, "AO").End(xlUp).Row)
    rng.Locked = True
    .Protect Password:=pass, _
        AllowSorting:=True, _
        AllowFormattingRows:=True, _
        AllowFormattingColumns:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True
    .EnableSelection = xlUnlockedCells
End With

 

[volki79]

yardımınız için çok teşekkür...

 

[mancubus]

rica ederim.