Θα εισάγετε αυτό τον κώδικα στο φύλλο εργασίας και θα τρέξετε το αρχείο με ενεργοποίηση μακροεντολών

 Δοκιμάστε το !!!

Dim dtval
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Formula <> dtval Then Target.Formula = dtval
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dtval = Target.Formula
End Sub