Você pode começar com isso no VBA da planilha, ajustar de acordo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then
Exit Sub
End If
ActiveSheet.Unprotect
If IsEmpty(Target) Then
Target.Offset(, 1).Clear
Target.Offset(, 1).Locked = True
Else
Target.Offset(, 1).Locked = False
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub