Ir ao conteúdo

Macros em planilhas protegidas


flaviorc

Posts recomendados

  • Membro VIP
Postado

Bom dia Flavio

você vai ter que usar um código para desbloquear e no final bloquear novamente a planilha.

'comando que desprotege a planilha.

ActiveSheet.Unprotect "1010"

'comando que protege a planilha

ActiveSheet.Protect "1010"

O primeiro você coloca logo após o o nome da macro e o segundo na antes de

End Sub

No lugar de "1010" você coloca a tua senha.

Espero seja útil

Abraços

Postado

Boa noite Patropi,

Fiz o que você me sugeriu e não deu certo. Aparece uma msg q é a seguinte:

"Erro em tempo de execução '1004':

O método Insert da classe Range falhou"

O eu pode ser isso?

Obrigado.

  • Membro VIP
Postado

Boa noite flavio

Te envio um exemplo de código VBA com desbloqueio e bloqueio da planilha para você ver se fez algo errado.

Private Sub Worksheet_Change(ByVal Target As Range)
'comando que desprotege a planilha, no caso a senha é TESTE
ActiveSheet.Unprotect "TESTE"

If Target.Count > 1 Then Exit Sub
If Target.Column <> 4 Then Exit Sub
Dim LR As Long
LR = Cells(Rows.Count, "C").End(xlUp).Row
Range("$C$3:$M" & LR).Sort Key1:=Range("$D$3")
'comando que protege a planilha
ActiveSheet.Protect "TESTE"
End Sub

Abraços

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!