Excel Macro não permite que utilize o filtro

[Eduardo Fernandes Brandão]

Bom dia,

 

Utilizo uma macro para inserir uma linha com algumas fórmulas, a planilha é bloqueada para que a fórmula não seja perdida, quando eu ativo a macro o filtro é bloqueado, se alguém puder ajudar agradeço.

 

Em anexo a planilha.

 

 

teste2021.zip

[Edson Luiz Branco]

Bem vindo ao fórum Office do Clube do Hardware, @Eduardo Fernandes Brandão

 

Defina a permissão para usar filtro com True para a planilha ao protegê-la novamente:

 

  ActiveSheet.Protect "123abc", AllowFiltering:=True

 

_____________________________________________________

Se me permite,  uma sugestão: como seus dados estão num objeto tabela (ListObject para o VBA), utilize fórmulas com Referência Estruturada ao invés de Referências Relativas/Absolutas.

 

Então, ao invés de:

 

=SE(K5="";"";SE(SE(L5="";K5;M5)=HOJE();"VENCE HOJE";
             SE(SE(L5="";K5;M5)<HOJE();"ATRASADO";
                SE(L5="";K5;M5)-HOJE()&" DIA(S) PARA VENCER")))

 

Transforme para linguagem de tabela:

=SE([@FINAL]="";""; SE(SE([@INICIAL2]="";[@FINAL];[@FINAL3])=HOJE();"VENCE HOJE";
                    SE(SE([@INICIAL2]="";[@FINAL];[@FINAL3])<HOJE();"ATRASADO";
                       SE([@INICIAL2]="";[@FINAL];[@FINAL3])-HOJE()&" DIA(S) PARA VENCER")))

 

Além de ser a forma mais correta de usar fórmulas quando se trata de tabelas, a inserção de novas linhas pelo VBA fica facilitada pois dispõe de um método específico que já aplica corretamente a fórmula às colunas onde for pertinente, inclusive com a formatação zebrada. A linha oculta onde você mantém a fórmula pra ser copiada/colada pode ser então eliminada, pois não é mais necessária.

 

Seu código para o botão "Adicionar Linha" ficaria então assim:

 

Sub Copiar2()
  ActiveSheet.Unprotect "123abc"
    ActiveSheet.ListObjects("Tabela1").ListRows.Add
  ActiveSheet.Protect Password:="123abc", AllowFiltering:=True
End Sub

 

[Eduardo Fernandes Brandão]

@Edson Luiz Branco Muitíssimo obrigado peal sua ajuda, estou iniciando agora esses trabalhos um pouquinho mais complicado pra mim no excel e ajudas como a sua, enriquecem e agregam muito o conhecimento de quem está aprendendo.