none
Macro - Proteger Planilha deixando filtro ativado RRS feed

  • Pergunta

  • 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!

     

    quarta-feira, 20 de outubro de 2010 15:27

Respostas

  • 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 rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/
    quarta-feira, 20 de outubro de 2010 16:49

Todas as Respostas

  • 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 rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/
    quarta-feira, 20 de outubro de 2010 16:46
  • 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 rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/
    quarta-feira, 20 de outubro de 2010 16:49