Macros em planilhas protegidas

[flaviorc]

Pessoal,

Estou com um problema. Tenho que proteger uma planilha e continuar usando as macros. Como faço isso?

Att,

Flavio.

[Patropi]

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

[flaviorc]

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.

[Patropi]

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