Boa tarde!!
Tente algo assim

Sub teste()
    With ActiveSheet
        .Protect
        .EnableSelection = xlUnlockedCells
    End With
End Sub

Att

Amigo, boa tarde!

Infelizmente não resolve, por que as células vão estar desprotegidas e a planilha bloqueada, a macro teria que quando estimulada pelo botão, proteger e bloquear as células das colunas que foram preenchidas. Tudo isto numa tabela que pode ter linhas inseridas.

Att.

Segue a planilha, e as colunas que devem ser bloqueadas quando preenchidas são todas menos a última do saldo.