olá galera,

encontrei um codigo abaixo, que atente minha necessidade, porem, gostaria de um ajuste para nao ser executado esta macro apos digitar a celula e sim, apos clicar em um botão.
o principio é o mesmo, bloquear a celulas apos inserir valor, apenas as celulas inseridas, as que ficarem em branco permanecer desbloqueada e bloquear se receber algum valor futuro.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Select
If Target.Column = 1 Then ' O número se refere à coluna em que o código funcionará.
If Not IsNumeric(ActiveCell.Value) Then
Sheets("Plan1").Unprotect Password:="SENHA" ' Senha da planilha
Selection.Locked = True
Sheets("Plan1").Protect Password:="SENHA" 'Senha da planilha
End If
End If
End Sub