Este fórum está sendo desativado

[BITTENCURT]

Boa noite

Preciso proteger/ocultar fórmulas da planilha anexa, mantendo as Macros (filtros) ativas.
Já tentei pelo método tradicional, marquei a caixa auto filtro, enfim, fiz o passo a passo e protegeu, porém quando vou usar as Macros/Filtros aparece a mensagem "desproteger planilha".
Existe uma forma de driblar isso?
Se positivo, pode ser usada em outras planilhas ou cada caso é um caso ?

No aguardo

Desde já agradeço.

Bittencurt

[AfonsoMira]

Boa tarde.

Quais seriam os parâmetros para fazer o filtro?

[osvaldomp]

Experimente:

Nos dois códigos acrescente a linha em vermelho conforme abaixo.

ActiveSheet.Protect userinterfaceonly:=True
Range("A15:AH15").Select

[BITTENCURT]

Boa tarde.

Quais seriam os parâmetros para fazer o filtro?

O filtro "Sequencia" sempre aplicar do Menor para o Maior..(A16:A26)

o filtro "Pontuação" para aplicar do Maior para Menor .(W16:W26)

[BITTENCURT]

Boa Tarde osvaldomp
Acrescentei os código nas duas macros e não funcionou.
Segue planilha protegida (Senha 3344), porém as macros não funcionam.

[osvaldomp]

Segue planilha protegida (Senha 3344), porém as macros não funcionam.

Verdade, pois só agora você informou que coloca senha

Código: Selecionar todos

 ActiveSheet.Protect "3344", userinterfaceonly:=True

[BITTENCURT]

Não funcionou..
Será que tem como enviar a planilha alterada com seu código pra testar aqui ?

Posso ter feito algum procedimento errado ...

[Kledison]

Boa noite,

Verifica se fez a alteração corretamente, aqui funcionou perfeitamente.

[andriessen]

Eu faço assim , começa com
‘Desprotege a Planilha Ativa
ActiveSheet.Unprotect Password:="SUA SENHA"
e termina a macro assim
‘Protege a Planilha Novamente
ActiveSheet.Protect Password:="Sua Senha"

[osvaldomp]

Eu faço assim , começa com
‘Desprotege ... e termina ...‘Protege

Esse método apresenta um ponto fraco, pois se por alguma razão a execução for interrompida a planilha restará desprotegida, além de requerer o comando adicional para voltar a proteger.

[andriessen]

obrigado pela dica, nunca pensei nisso. Mas se colocar uma ação em caso de erro () ? funcionária?

[osvaldomp]

Sim, funcionaria. E nesse caso já serão necessários mais dois comandos: um para captar o erro e indicar o desvio (GoTo) e outro lá no final do código para receber o desvio antes do comando de proteger. E agora já serão quatro comandos em lugar de um.

[BITTENCURT]

Boa noite,

Verifica se fez a alteração corretamente, aqui funcionou perfeitamente.

Kledison

Efetuei alteração como sua Macro, mesmo assim não funcionou...
Poderia me ajudar enviando a planilha funcionando?

[Kledison]

Boa noite,

eu apenas alterei o código da sua macro de acordo com o que o Osvaldo postou, segue o exemplo.

Att

[BITTENCURT]

Boa noite,

eu apenas alterei o código da sua macro de acordo com o que o Osvaldo postou, segue o exemplo.

Att

A sua está funcionando, deve ser uma virgula ou ponto ... vou tentar localizar..

daqui a pouco faço os agradecimentos..

[BITTENCURT]

Boa tarde Kledison
Realmente aquele código funcionou naquela planilha, achei que usando o mesmo código em outras planilhas protegidas com mesma senha iria funcionar, não deu certo.
Protegi uma planilha com seis Macros (Filtros), acrescentei o código nas Macros, fiz todo processo calmamente pra não errar , não consegui.
Você poderia me ajudar ?
Estou enviando a planilha anexa protegida.

No aguardo

[osvaldomp]

Amigo, no comando que eu sugeri não existe apóstrofo no início a da linha.
Depois o Kledison publicou os códigos, e sem apóstrofo no início da linha.
Em seguida o Kledison disponibilizou um arquivo, e sem apóstrofo no início da linha.

Isso lhe sugere alguma ideia ?

[andriessen]

apóstrofo no início da linha significa que o que você escrever depois dele e apenas um comentário ou seja, não e uma linha de comandos.

[Kledison]

Boa tarde!

DELETE o apóstrofo no inicio da linha como foi orientado pelo Osvaldo e Andriessen.



Att