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 = 14 Or Target.Column = 25 Then
        If Target.Value <> "" Then
            Worksheets("Recomendações Externas").Unprotect
            Target.Locked = True 'Executa
            Worksheets("Recomendações Externas").Protect Password:="senha"
    Else
            Worksheets("Recomendações Externas").Unprotect
            Target.Locked = False
    End If
    
    Else
        Worksheets("Recomendações Externas").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!