[VBA] Προτροπή για ενημέρωση Πεδίου χωρίς δυνατότητα Παράκαμψης !

[Χρήστος]

Καλησπέρα. θα ήθελα να ζητήσω την βοήθειά σας στο εξής.

Σ' ένα αρχείο Excel (2007) και συγκεκριμένα στο Φύλλο: Φόρμα θέλω
να κάνω υποχρεωτική την πληκτρολόγηση σ 'ένα συγκεκριμένο κελί (D6). Αν δεν πληκτρολογήσω (Αριθμό) να μην με αφήνει να συνεχίσω. Μάλλον θα έβρισκα βολικό να μην με αφήνει να κάνω κλίκ πουθενά αλλού, βγάζοντας προειδοποιητικό μήνυμα για πληκτρολόγηση.

Πως θα μπορούσα να ξεκινήσω και στην πορεία φαντάζομαι να τελειοποιηθεί!

Φιλικά Χρήστος

[Spirosgr]

Καλησπέρα
Ο πιο απλός τρόπος είναι να βάλεις αυτόν τον κώδικα στο φύλλο όχι σε Module
ώστε να μην επιτρέπετε επιλογή αν δεν γεμίσει το συγκεκριμένο κελί
Όπου "ονομασία" το κελί που πρέπει να είναι γεμάτο
και "κείμενο" το κείμενο του Msgbox

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range(" ονομασία ").Value = "" Then
        MsgBox (" κείμενο ")
        End If
End Sub

[Χρήστος]

Σ' ευχαριστώ πολύ.

[KostasZK]

Με μόνο αυτόν τον κώδικα επιτρέπει να κάνεις κλικ και να γράψεις και σε οποιοδήποτε άλλο κελί.
Χρειάζεται να είναι κλειδωμένα τα άλλα κελιά και να ξεκλειδώνουν όταν μπει αριθμός στο κελί ονομασία.
Ή κάνω λάθος;

[Spirosgr]

Καλησπέρα
Ο κώδικας αν το κελί πχ Β3 δεν έχει οποιαδήποτε τιμή
αριθμητική ή κείμενο ή ημερομηνία
μας ειδοποιεί συνεχώς μέχρι το κελί να έχει τιμή
νομίζω αρκεί κάτι τέτοιο
αφαιρέστε την τιμή από το κελί να δείτε τι γίνετε
δείτε το συνημμένο

[Spirosgr]

Βλέποντας το ζητούμενο του Χρήστου και πάλι
<<Μάλλον θα έβρισκα βολικό να μην με αφήνει να κάνω κλικ πουθενά αλλού, βγάζοντας προειδοποιητικό μήνυμα για πληκτρολόγηση.>>
Θα έβαζα αυτό τον κώδικα με ένα μήνυμα σε Data Validation στο κελί

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("xrange").Value <> "" Then
        Exit Sub
    Else
        Range("xrange").Select
    End If
End Sub