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