VBA: Como bloquear um conjunto de células automaticamente após preenchimento?

Saudações, pessoal!

Estou precisando de um código no VBA para bloquear automaticamente um conjunto de células (de uma mesma coluna) após o preenchimento das mesmas.
Através do código abaixo consegui fazer o que era esperado, porém quando se seleciona mais de uma célula ou a coluna inteira a Macro falha e permite apagar o conteúdo das células anteriormente bloqueadas:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Colunas As Range



ActiveSheet.Unprotect Password:="senha"



If Target.Column = 11 Or Target.Column = 25 Then

If Target.Value <> "" Then

Worksheets("Recomendações Externas&quot.Unprotect

Target.Locked = True 'Executa

Worksheets("Recomendações Externas&quot.Protect Password:="senha"

Else

Worksheets("Recomendações Externas&quot.Unprotect

Target.Locked = False

End If



Else

Worksheets("Recomendações Externas&quot.Unprotect Password:="senha"

End If



End Sub

Alguém pode me ajudar com alguma melhoria no código acima ou propor um código que realize a função esperada, por favor?

Obrigado!