Πώς να αποτρέψετε τη διαγραφή συγκεκριμένων περιεχομένων κυττάρων στο Excel;

Αυτό το άρθρο αναφέρεται για την αποτροπή διαγραφής συγκεκριμένων περιεχομένων κελιού στο Excel. Μπορείτε να το επιτύχετε με τις μεθόδους σε αυτό το άρθρο.

Αποτρέψτε τη διαγραφή συγκεκριμένων περιεχομένων κελιού προστατεύοντας το φύλλο εργασίας
Αποτρέψτε τη διαγραφή συγκεκριμένων περιεχομένων κελιού χρησιμοποιώντας τον κώδικα VBA

Αποτρέψτε τη διαγραφή συγκεκριμένων περιεχομένων κελιού προστατεύοντας το φύλλο εργασίας

Φοβερο! Χρήση αποτελεσματικών καρτελών στο Excel όπως το Chrome, το Firefox και το Safari!

Εξοικονομήστε 50% του χρόνου σας και μειώστε χιλιάδες κλικ ποντικιού για εσάς κάθε μέρα!

Από προεπιλογή, όλα τα κελιά στο φύλλο εργασίας είναι κλειδωμένα. Εάν θέλετε να αποτρέψετε τη διαγραφή συγκεκριμένων περιεχομένων κελιού και να κάνετε επεξεργασία άλλων κυττάρων μετά την προστασία, κάντε τα εξής.

1. Κάντε κλικ στο κουμπί κουμπί στην επάνω αριστερή γωνία του φύλλου εργασίας για να επιλέξετε ολόκληρο το φύλλο εργασίας. Στη συνέχεια πατήστε Ctrl + 1 για να ανοίξετε το κύτταρα μορφή κουτί διαλόγου.

2. Στο αναδυόμενο παράθυρο κύτταρα μορφή πλαίσιο διαλόγου, αποεπιλέξτε το Κλειδωμένο επιλογή βάσει του Προστασία , και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Επιλέξτε τα κελιά που δεν θέλετε να διαγραφούν τα περιεχόμενα, πατήστε Ctrl + 1 πλήκτρα για να ανοίξετε το κύτταρα μορφή πλαίσιο διαλόγου ξανά, επιλέξτε το Κλειδωμένο επιλογή βάσει του Προστασία , και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί.

4. Τώρα κάντε κλικ Βαθμολογία Κριτικής > Προστατέψτε το φύλλο, στη συνέχεια καθορίστε και επιβεβαιώστε τον κωδικό πρόσβασής σας και στα δύο Προστατέψτε το φύλλο και Επιβεβαίωση κωδικού πλαίσια διαλόγου.

Τώρα το φύλλο εργασίας προστατεύεται. Και τα καθορισμένα περιεχόμενα κελιού δεν θα διαγραφούν πια.

Αποτρέψτε τη διαγραφή συγκεκριμένων περιεχομένων κελιού χρησιμοποιώντας τον κώδικα VBA

Εκτός από τις παραπάνω δύο μεθόδους, μπορείτε να εκτελέσετε κώδικα VBA για να αποτρέψετε τη διαγραφή συγκεκριμένων περιεχομένων κελιού σε ένα φύλλο εργασίας. Κάντε τα εξής:

1. Ανοίξτε το φύλλο εργασίας που περιέχει τα περιεχόμενα του κελιού που δεν θέλετε να διαγράψετε, κάντε δεξί κλικ στην καρτέλα Φύλλο και, στη συνέχεια, κάντε κλικ στο Προβολή κωδικού από το μενού με δεξί κλικ.

2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Code του Microsoft Visual Basic για εφαρμογές παράθυρο.

Κωδικός VBA: Αποτρέψτε τη διαγραφή συγκεκριμένων περιεχομένων κελιού στο Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

Note: Στον κώδικα, το A1: E17 είναι το εύρος στο οποίο τα περιεχόμενα του κελιού δεν θα διαγραφούν. Μπορείτε να αλλάξετε το εύρος με βάση τις ανάγκες σας.

Από τώρα και στο εξής, όταν προσπαθείτε να διαγράψετε τα περιεχόμενα κελιού από το εύρος A1: E17, θα λάβετε ένα Kutools για Excel παράθυρο διαλόγου όπως φαίνεται παρακάτω, κάντε κλικ στο OK κουμπί.

Σχετικά Άρθρα:

Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

Σχόλια (17)

Βαθμολογήθηκε το 5 από το 5 · αξιολογήσεις 1

HJR

περίπου 6 χρόνια

#18210

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ακριβώς αυτό που έψαχνα, ευχαριστώ για τη βοήθεια!

απάντηση

Φινλανδός HJR

περίπου 5 χρόνια

#18211

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

μην ανησυχείς πάντα εδώ για να βοηθάς :)

απάντηση

περίπου 4 χρόνια

#25455

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου,

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

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

Εβίβα

απάντηση

κρύσταλλο Si

περίπου 4 χρόνια

#25456

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Καλή σας μέρα,
Προσπάθησα όπως ανέφερες στην περίπτωσή σου, αλλά κανένα σφάλμα δεν βγάζει. Θα παρέχετε ένα στιγμιότυπο οθόνης της υπόθεσής σας ή θα μου πείτε την έκδοση του Office;
Ευχαριστώ για το σχόλιό σας.

απάντηση

Αναφορά

George M.

περίπου 4 χρόνια

#26554

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Εάν δεν θέλετε να κοιτάξετε το φύλλο σας ή να γράψετε κώδικα VBA, τότε χρησιμοποιώ μια απλή τεχνική που αποτρέπει οποιαδήποτε παράκαμψη, εκτός από την περίπτωση που χρησιμοποιούν το πλήκτρο "DELETE" (το backspace δεν θα επιτρέπεται, αλλά το Delete είναι δύσκολο να σταματήσει ). Αυτό που έκανα είναι να προσθέσω μια επικύρωση δεδομένων με τις ακόλουθες ρυθμίσεις:

1) Να επιτρέπεται --> Λίστα

2) αποεπιλέξτε το "Ignore Blank" και το "In-cell dropdown"

3) Στην πηγή εισάγετε δύο διπλά εισαγωγικά (δηλαδή, "")

4) Στην καρτέλα Ειδοποίηση σφάλματος, επιλέξτε "Εμφάνιση αλλαγής σφάλματος μετά την εισαγωγή μη έγκυρων δεδομένων", επιλέξτε "Διακοπή" για στυλ και, στη συνέχεια, εισαγάγετε ένα μήνυμα σφάλματος και περιγραφή (π.χ. Να μην γίνεται παράκαμψη)

απάντηση

κρύσταλλο George M.

περίπου 4 χρόνια

#26555

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας,
Ευχαριστώ για την κοινή χρήση.

απάντηση

Αναφορά

Νιλ Γκορ

περίπου 4 χρόνια

#27239

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Κώδικας VBA - Μεγάλη συμβουλή, ευχαριστώ

Υπάρχει κωδικός VBA για την αποτροπή τροποποίησης ΚΑΙ διαγραφής συγκεκριμένων περιεχομένων κελιών στο Excel;
Το συνηθισμένο προστατευτικό φύλλο δεν λειτουργεί για μένα καθώς χάνω τη δυνατότητα ταξινόμησης δεδομένων;

Ευχαριστώ εκ των προτέρων - Neil

απάντηση

Αναφορά

Αχσάν

περίπου 2 χρόνια

#33358

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

"Αποτρέψτε τη διαγραφή συγκεκριμένων περιεχομένων κελιών προστατεύοντας το φύλλο εργασίας"Έκανα σύμφωνα με τις οδηγίες σας, και πάλι οι πληροφορίες κελιού θα μπορούσαν να διαγραφούν, δηλαδή η προστασία δεν λειτουργεί. Οποιαδήποτε λύση.

απάντηση

κρύσταλλο Αχσάν

περίπου 2 χρόνια

#33359

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Ahsan,
Εφαρμόσατε τη μέθοδο VBA;
Πρέπει να προσθέσετε το VBA στο παράθυρο κώδικα του φύλλου εργασίας. Αν υποθέσουμε ότι τα περιεχόμενα του κελιού που θέλετε να προστατεύσετε βρίσκονται στο Φύλλο 9, κάντε δεξί κλικ στην καρτέλα του φύλλου και επιλέξτε Προβολή κώδικα από το μενού περιβάλλοντος και, στη συνέχεια, αντιγράψτε απευθείας τον κώδικα στο παράθυρο κώδικα όπως φαίνεται στην παρακάτω εικόνα.

Προβολή συνημμένων (1 / 5)

απάντηση

Αναφορά

Δαβίδ

περίπου 2 χρόνια

#33917

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας, αυτός ο κώδικας λειτουργεί καλά, ωστόσο η διαγραφή γραμμής/στήλης θα τον παρακάμψει. Υπάρχει κάποια λύση σε αυτό; Υγεία, Ντέιβιντ.

απάντηση

κρύσταλλο Δαβίδ

περίπου 2 χρόνια

#33918

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου David,
Ποια έκδοση του Excel χρησιμοποιείτε; Δοκίμασα τον κώδικα, ολόκληρες σειρές και στήλες στο καθορισμένο εύρος δεν μπορούν να διαγραφούν μετά την εφαρμογή του κώδικα.

απάντηση

Αναφορά

Oussama Abou faraj

περίπου 4 μήνες πριν

#40028

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ευχαριστώ για τις πολύτιμες πληροφορίες.
Σχετικά με το παρακάτω VBA:
Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Εάν το Intersect(Target, Range("A1:E7")) δεν είναι τίποτα, τότε βγείτε από το δευτερεύον
Σε σφάλμα Μετάβαση στο σημείο εξόδου
Application.EnableEvents = False
Αν δεν είναι Ημερομηνία(Στόχος(1)) Τότε
Εφαρμογή.Αναίρεση
MsgBox "Δεν μπορείτε να διαγράψετε τα περιεχόμενα των κελιών από αυτό το εύρος" _
, vbCritical, "Kutools for Excel"
End If
Σημείο εξόδου:
Application.EnableEvents = True
Sub End

Τα παραπάνω θα επιτρέψουν την εκτέλεση μέσα σε ένα συγκεκριμένο καθορισμένο εύρος. Δεν επιτρέπει την προσθήκη νέων σειρών. Υπάρχει τρόπος να προστεθούν νέες σειρές διατηρώντας την ίδια προστασία.
ευχαριστώ και χαιρετισμούς

απάντηση

κρύσταλλο Oussama Abou faraj

περίπου 4 μήνες πριν

#40107

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Oussama Abou faraj,
Αφού προσπάθησα με διάφορες μεθόδους, δεν μπορώ να το πετύχω αυτό. Μετά την προσθήκη μιας νέας σειράς, η περιοχή θα κλειδωθεί Αμέσως και το κελί που εισήχθη πρόσφατα δεν μπορεί να επεξεργαστεί.

απάντηση

Αναφορά

Gelu

περίπου 3 μήνες πριν

#40535

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Είναι δυνατόν να γίνει κάτι παρόμοιο σε επίπεδο βιβλίου εργασίας;

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Εάν το Intersect(Target, Range("A1:M7000")) δεν είναι τίποτα, τότε βγείτε από το δευτερεύον
Σε σφάλμα Μετάβαση στο σημείο εξόδου
Application.EnableEvents = False
Αν δεν είναι Ημερομηνία(Στόχος(1)) Τότε
Εφαρμογή.Αναίρεση
MsgBox "Δεν μπορείτε να διαγράψετε τα περιεχόμενα των κελιών από αυτό το εύρος" _
, vbCritical, "Kutools for Excel"
End If
Σημείο εξόδου:
Application.EnableEvents = True
Sub End

απάντηση

κρύσταλλο Gelu

περίπου 3 μήνες πριν

#40591

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Gelu,
Εννοείτε να αποτρέψετε τη διαγραφή του εύρους "A1:M7000" σε όλα τα φύλλα εργασίας του τρέχοντος βιβλίου εργασίας;

απάντηση

Αναφορά

TUDOSE GELU

περίπου 3 μήνες πριν

#40651

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Όχι, εννοούσα να ΜΗΝ επιτρέπεται η διαγραφή (χωρίς να προστατεύονται τα wks ή wkb).

Είναι ωραίο το παραπάνω να λειτουργεί σε επίπεδο Wks.

Αν υπάρχει κάτι που να το κάνει να λειτουργεί σε επίπεδο wkb θα ήταν ακόμα καλύτερο (έχω πολλά φύλλα)

G

απάντηση

Αναφορά

Αντρές Σ

πριν από περίπου 1 εβδομάδα

#42637

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτό είναι υπέροχο. Αναρωτιόμουν αν αυτή ήταν μια επιλογή και σίγουρα ήταν. Ευχαριστώ για τις πολύ εύκολες οδηγίες.

Αντρές Σ.

απάντηση

Βαθμολογήθηκε το 5 από το 5

Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Αφήστε τα σχόλιά σας

Δημοσίευση ως επισκέπτης

Σύνδεση

Όνομα (Απαραίτητο)

Email (απαιτείται)

Αξιολογήστε αυτήν την ανάρτηση:

Επαναφορά

0 Χαρακτήρες

συμφωνώ στο όρους και προϋποθέσεις