[gr8styl]

Φίλε Μάκη,
μια από τις λύσεις με VBA είναι ο παρακάτω κώδικας.
(τον βάζεις στον κώδικα του φύλλου που θέλεις την συγκεκριμένη λειτουργία.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Target.Value <> "" Then
            Me.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Else
            Me.Unprotect
        End If
    End If
End Sub

Τώρα για το αν θα κατανοήσεις την λύση με VBA, ενώ δεν καταλαβαίνεις όπως είπες το παράδειγμα με την επικύρωση,
θα έλεγα ότι δεν προσπαθούμε να οδηγήσουμε νταλίκα όταν δεν ξέρουμε πως να οδηγήσουμε επιβατικό.

Τέλος πάντων εσύ ξέρεις.

Καλή συνέχεια.
Θανάσης
ΥΓ Ίσως οι ειδικοί της VBA έχουν κάτι καλύτερο να σου προτείνουν