Usuário com melhor resposta
Macro - Proteger Planilha deixando filtro ativado

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 = FalseActiveSheet.Protect Filter:=True, Password:="acn"
Application.EnableEvents = TrueEnd If
End SubAlguém sabe dizer oq posso mudar na macro pra ela funcionar?
OBrigada!
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/- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:24
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:24
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/ -
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/- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:24
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:24