Macro - Proteger Planilha deixando filtro ativado

Question

Boa tarde!

Como posso proteger uma planilha e deixar as opções de filtro e classificar acionadas?

TEnho essa macro abaixo mas não funciona...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("K9:K4098")) Is Nothing Then
    ActiveSheet.Unprotect Password:="acn"
   
    Select Case Target
   
        Case "Concluído"
        Target.Interior.Color = RGB(0, 0, 255)
        Case "Em andamento"
        Target.Interior.Color = RGB(0, 255, 0)
        Case "Atrasado"
        Target.Interior.Color = RGB(255, 0, 0)
        Case "Cancelado"
        Target.Interior.Color = RGB(255, 255, 255)
        Case "Não Iniciado"
        Target.Interior.Color = RGB(255, 255, 255)
   
    End Select
     ActiveSheet.Protect Password:="acn"
    
    Application.EnableEvents = False

    ActiveSheet.Protect Filter:=True, Password:="acn"
    
    Application.EnableEvents = True

  End If
End Sub

Alguém sabe dizer oq posso mudar na macro pra ela funcionar?

OBrigada!

 

Answer 1

Bekous

Quando você clicar no botão "proteger planilha" repara que existe uma lista chamada "Permitir que todos os usuários desta planilha possam:". Lá selecione Usar Autofiltro e classificar e então clique ok para aplicar a proteção.

---

Rafael Gomes dos Santos Consultor de Informática MCAS - Microsoft Certified Application Specialist [e-mail] https://sites.google.com/site/pfntec/

Answer 2

Programaticamente fica assim...

 

    ActiveSheet.Protect Password:="acn", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True

---

Rafael Gomes dos Santos Consultor de Informática MCAS - Microsoft Certified Application Specialist [e-mail] https://sites.google.com/site/pfntec/