valdecirrk,

Bom Dia!

Antes do código que faz a inserção, você precisa desbloquear a planilha, via código, com a mesma senha utilizada no bloqueio e depois que fizer a inserção, voltar a bloquear a planilha, também via código, mais ou menos assim:

Sub Inserção()
    ' Substitua 123 pela sua senha
    ActiveWorkbook.Unprotect ("123")

    'Aqui vai o código que faz a inserção

    ' Substitua 123 pela sua senha
    ActiveWorkbook.Protect ("123")
End Sub

Bom dia,

Wagner,

Desculpe a intromissão, porém, no caso em questão, como é a planilha que está protegida, não seria mais adequado utilizar "ActiveSheet" em vez "ActriveWorkbook"?

Sub InserirBloq()
    ActiveSheet.Unprotect "SENHA"
    
    'Código de inserção aqui
    
    ActiveSheet.Protect "SENHA"
End Sub

Abraço

Tem toda razão Jvalq. É isso mesmo. Obrigado

E quanto a sua proveitosa intervenção, fique tranquilo. Uma ajuda é sempre muito bem vinda.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.