Este procedimento de evento de alteração examinará qualquer célula que tenha validação e exibirá a mensagem de erro da validação. Não funciona como validação, pois não força uma "tentativa". Além disso, ele coloca um '1' se for deletado. Você poderia colocar o valor antigo lá, mas precisaria de mais trabalho e geralmente é algo que tento evitar.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sForm As String
On Error Resume Next
sForm = Target.Validation.Formula1
On Error GoTo 0
If Len(sForm) > 0 Then 'has validation
If IsEmpty(Target.Value) Then 'cell was deleted
MsgBox Target.Validation.ErrorMessage, vbOKOnly, Target.Validation.ErrorTitle
Application.EnableEvents = False
Target.Value = 1
Application.EnableEvents = True
End If
End If
End Sub