Adrilmb,
Tente este exemplo:

Sub DesProteger_()
ActiveSheet.Unprotect "suasenha"
End Sub
Sub Proteger_()
ActiveSheet.Protect "suasenha", True, True
End Sub

Adrilmb,
Tente este exemplo:

Sub DesProteger_()
ActiveSheet.Unprotect "suasenha"
End Sub
Sub Proteger_()
ActiveSheet.Protect "suasenha", True, True
End Sub

Olá Basole, e colocaria esse código na planilha ou em um módulo?, no arquivo tenho várias planilhas e ainda na planilha que está a tabela tem campos que não podem ser alterados, tem como só desproteger a Tabela (listobject)?. Obrigada.

Se voce tem varias Plan. melhor colocar em um modulo.

e ainda na planilha que está a tabela tem campos que não podem ser alterados, tem como só desproteger a Tabela (listobject)?

Teria que ver sua planilha para lhe dar um parecer. Seria bom se pudesse enviar sua planilha ou um modelo c/ alguns dados ficticios.
[]

Se quiser fazer sem VBA.

Qdo vc protege a planilha Formatar > Proteger Planilha

Marque a opção Inserir Linha

PREZADO

por favor coloque a planilha para que possamos ver o que pode ser feito.

grato