Inserir linha em planilha protegida para compartilhamento

Question

Boa tarde,

Estou tentando optimizar uma planilha que tenho no trabalho com um código para inserir uma nova linha após a última preenchida.

O problema é que além de proteger a planilha nós também utilizamos a função "Proteger e compartilhar pasta de trabalho". Mas quando uso esta função para compartilhar a planilha na rede o código não funciona mais. Existe alguma forma de fazer o código funcionar com a planilha protegida para compartilhamento?

Segue o código que estou utilizando:

Sub btninserir()

ActiveSheet.Unprotect

Dim linha  As Long

linha = Range("A" & Rows.Count).End(xlUp).Row
linha = linha + 1
Range("A" & linha).Select

With Selection.EntireRow
    .Offset(-1).Copy
    .Insert
    On Error Resume Next
    .Offset(-1).SpecialCells(xlCellTypeConstants, 23).ClearContents
    On Error GoTo 0
End With

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub