Hej hej. Sortering kräver till skillnad från filtrering att alla celler som ska kunna sorteras även går att skriva till. Detta besegrar syftet med skydda blad + sortering. Bästa lösningen jag kan tänka på är att skriva lite kod. Sitter på min telefon, så det blir bara lite tips, ingen körbar kod:
Sub worksheet_selectionchange(byval rng1 as range)
Dim rng2 as range: set rng2 = activesheet.range("a2:k2")
If intersect(rng1, rng2) is not Nothing then
Activesheet.protect "ettlösenord"
Else
Activesheet.unprotect "Ett lösenord"
End if
End sub

Syftet med koden är att låta bladet vara upplåst om användaren har markerat en cell i dina rubriker (a2:k2) samt låsa bladet om användaren är någon annanstans. Du behöver antagligen stänga av events innan kod körs och sätta på i slutet. Application.enableevents = false stänger av. Sätt denna direkt efter din procedur deklaration (Sub wokrsheet_blabla). Koden ska placeras i det blad som ska användas. Lycka till /christian

Hej igen.
Filter döljer rader. Sortering skriver om cellvärden. Logiken till varför man har möjligheten att sortera på låst blad när det egentligen kräver att allt som ska sorteras är olåst är även för mig totalt ologiskt. Känns som att man glömde utveckla den delen.

/c