Hej hej

Lägg nedan kod i din editor på bladet som ska skyddas.

Private Sub Worksheet_Activate()    

    ActiveSheet.Protect Password:="något bra lösenord", Userinterfaceonly:=True, AllowFiltering:=True

    ActiveSheet.EnableOutlining = True    

End Sub

Allowfiltering, ser till att du kan använda dina filter. Enableoutliing gör att du kan använda grupperingarna. Dessvärre löser detta inte sortering i filter, då dessa kräver att samtliga celler är upplåsta, vilket skulle kräva ganska omfattande programmering för att lösa.

Se till att bladskyddet är öppnat första gången du ska trigga makrot, annars körs inte programsatsen. Du triggar makrot genom att växla till bladet som ska skyddas.

Mvh

Christian