Guru do Excel e Power BI

Boa noite!!

Alguém sabe como fazer essa Macro funcionar, mesmo com a Planilha Bloqueada.
SENHA: 1234

Segue Planilha.

Obrigado!!

Ola,

uma sugestão é colocar essas duas linhas de código no modulo 1 do arquivo.

antes da linha do código que filtra depois da linha de código que filtra mesma coisa para a MACRO DESFILLTRAR,como na imagem abaixo.

Boa tarde, Kledison!!


O Botão filtrar deu certo, mas o desfiltrar esta com erro.
Aparece a mensagem de FIM, DEPURADOR E ETC

Segue Planilha.

Obrigado!!

@Inovacao ,

você não fez como está na imagem que postei acima, segue planilha com as alterações

Att

Boa tarde, Kledison!!

Na verdade fiz sim, mas não sei se fiz da forma correta.
Me tira uma duvida, como faço para abrir o VBA e visualizar as fórmulas, pois aperto ALT+F11 mas não aparece os códigos.

Muito obrigado!!

@Inovacao ,

além da tecla de atalho mencionada por você, tem como acessar pela guia DESENVOLVEDOR, conforme GIF abaixo.





Att

Boa tarde!!

Perfeito, deu certo a sua solução, já estou utilizando.

Mas por acaso, voce conheceria alguma solução somente com fórmulas?


Muito obrigado!!

[@Inovacao ,

com fórmulas eu não tentei, mas acredito que a melhor solução é por MACRO.

Att

Boa tarde, Kledison!!
Tudo bom?

Fera, voce consegue me ajudar com este código, se refere ao mesmo que voce fez para mim, e estou tentando replicar em outras planilhas idênticas aquela.

Sabe me explicar qual a diferença entre o primeiro e o segundo código?

Porque ao executar o primeiro código a planilha permanece bloqueada,.
Já ao executar o segundo código a planilha fica desbloqueada, e queria que ficasse bloqueada, quando eu executasse a função DESFILTRAR.

CÓDIGO 1

Sub FILTRAR2()
'
' FILTRAR2 Macro
'
Sheets("Mov_eMPRESA-Salvo").Unprotect "1234"
'
ActiveSheet.Range("$G$4:$AQ$630").AutoFilter Field:=36, Criteria1:= _
"Com Valores"

Sheets("Mov_eMPRESA-Salvo").Protect "1234"
End Sub


CÓDIGO 2

Sub DESFILTRAR2()
'
' DESFILTRAR2 Macro
'
Sheets("Mov_eMPRESA-Salvo").Unprotect "1234"
'
ActiveSheet.Range("$G$4:$AQ$630").AutoFilter Field:=36

Sheets("Mov_Orçamento-Salvo").Protect "1234"

ActiveWorkbook.Save
End Sub


Obrigado!!