Este fórum está sendo desativado

[RTE]

Pessoal, boa tarde.

Segue problema para contextualização:
Estou desenvolvendo uma planilha que será utilizada por vários usuários. A mesma está protegida por senha e permite a função de auto filtro para que os usuários possam filtrar as informações na planilha sem a necessidade de desproteger.

Porém, com a planilha protegida, não é possível limpar todos os filtros por meio da aba de "DADOS", o que obriga o usuário a "limpar" individualmente os filtros de cada coluna ou desproteger a planilha.

Desenvolvi uma macro, com o código a baixo, que desbloqueia a planilha + limpa todos os filtros + bloqueia a planilha. Porém, após executar a macro, a planilha é bloqueada SEM a opção de AUTO FILTRO. Logo, não é possível filtrar as colunas com a planilha protegida.

Sub Limpar_Filtros()

ActiveSheet.Protect Password:="SENHA", userinterfaceonly:=True

If ActiveSheet.FilterMode Then
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
End If

ActiveSheet.Protect Password:="SENHA"

End Sub

Pergunta: O que eu posso alterar no código da minha MACRO, para que eu possa executá-la sem altear as minhas permissões por usuário? Por exemplo, que o AUTOFILTRO fique ativo?

[JCabral]

Tente assim:

Código: Selecionar todos

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, Password:="SENHA"

[osvaldomp]

Desenvolvi uma macro, com o código a baixo, que desbloqueia a planilha + limpa todos os filtros + bloqueia a planilha.

Este comando não desprotege a planilha.~~~> ActiveSheet.Protect Password:="SENHA", userinterfaceonly:=True.
Ao invés, ele a protege, caso não esteja protegida.

Esse comando apenas permite que alterações via macro sejam efetuadas em planilha protegida, sem desprotegê-la.

Para proteger habilitando Auto Filtro você pode substituir por este ~~~> ActiveSheet.Protect Password:="SENHA", AllowFiltering:=True, userinterfaceonly:=True

E o comando abaixo pode ser excluído pois ele está protegendo uma planilha já protegida.
ActiveSheet.Protect Password:="SENHA"

[DavidNeri]

Eu estava com esse mesmo problema, até que pesquisei e cai aqui... deu muito certo... obrigado mesmo!

[osvaldomp]

Olá, @DavidNeri .

Ficamos contentes porque você aproveitou as soluções deste tópico e agradecemos porque nos informou.