Obbligo popolazione di una cella specifica di excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wk As Worksheet, lr As Long, j As Long
Set wk = Worksheets("TuoFoglio") '      DA VARIARE
lr = wk.Cells.Find(What:="*", _
                After:=Range("A1"), _
                LookIn:=xlFormulas, _
                LookAt:=xlPart, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious).Row
For j = 2 To lr
    If Application.CountA(wk.Cells(j, 1).EntireRow) > 0 Then
        If wk.Cells(j, 1) = "" Then
            MsgBox "Mancano date"
            Cancel = True
            Exit Sub
        End If
    End If
Next
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A:L")) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case 1
            If WorksheetFunction.CountA(Range("B" & Target.Row & ":L" & Target.Row)) > 0 Then 'verifica se vi sono celle compilate
                MsgBox "Non puoi cancellare questa data se le colonne B-L non sono vuote"
                Application.EnableEvents = False
                Application.Undo
                Application.EnableEvents = True
            End If
        Case Else
            If Cells(Target.Row, 1).Value = "" Then 'verifica se manca la data
                MsgBox "Non puoi scrivere in questa cella se manca la data in colonna A"
                Application.EnableEvents = False
                Target.ClearContents
                Application.EnableEvents = True
            End If
    End Select
    
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim tRow As Long                              'riga attiva
    Dim uCol As Long                              'ultima colonna usata nella tabella
    Dim rigaA As Range                            'intera riga attiva
    Dim rigaB As Range                            'dati della riga attiva

    tRow = Target.Row
    uCol = UsedRange.Columns.Count
    Set rigaA = Range(Cells(tRow, "A").Address & ":" & Cells(tRow, uCol).Address)
    Set rigaB = Range(Cells(tRow, "B").Address & ":" & Cells(tRow, uCol).Address)
    If Intersect(Target, rigaA) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case 1
            If WorksheetFunction.CountA(rigaB) > 0 Then 'verifica se vi sono celle compilate
                MsgBox "Non puoi cancellare o modificare la data se le colonne dati non sono vuote"
                Application.EnableEvents = False
                Application.Undo
                Application.EnableEvents = True
            End If
        Case Else
            If Cells(Target.Row, "A").Value = "" Then 'verifica se manca la data
                MsgBox "Non puoi scrivere in questa cella se manca la data in colonna A"
                Application.EnableEvents = False
                Target.ClearContents
                Application.EnableEvents = True
            End If
    End Select
    
End Sub