Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (17)
Βαθμολογήθηκε το 5 από το 5 · αξιολογήσεις 1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ακριβώς αυτό που έψαχνα, ευχαριστώ για τη βοήθεια!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μην ανησυχείς πάντα εδώ για να βοηθάς :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου,

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

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

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

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

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

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

4) Στην καρτέλα Ειδοποίηση σφάλματος, επιλέξτε "Εμφάνιση αλλαγής σφάλματος μετά την εισαγωγή μη έγκυρων δεδομένων", επιλέξτε "Διακοπή" για στυλ και, στη συνέχεια, εισαγάγετε ένα μήνυμα σφάλματος και περιγραφή (π.χ. Να μην γίνεται παράκαμψη)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Ευχαριστώ για την κοινή χρήση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κώδικας VBA - Μεγάλη συμβουλή, ευχαριστώ

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

Ευχαριστώ εκ των προτέρων - Neil
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
"Αποτρέψτε τη διαγραφή συγκεκριμένων περιεχομένων κελιών προστατεύοντας το φύλλο εργασίας"Έκανα σύμφωνα με τις οδηγίες σας, και πάλι οι πληροφορίες κελιού θα μπορούσαν να διαγραφούν, δηλαδή η προστασία δεν λειτουργεί. Οποιαδήποτε λύση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ahsan,
Εφαρμόσατε τη μέθοδο VBA;
Πρέπει να προσθέσετε το VBA στο παράθυρο κώδικα του φύλλου εργασίας. Αν υποθέσουμε ότι τα περιεχόμενα του κελιού που θέλετε να προστατεύσετε βρίσκονται στο Φύλλο 9, κάντε δεξί κλικ στην καρτέλα του φύλλου και επιλέξτε Προβολή κώδικα από το μενού περιβάλλοντος και, στη συνέχεια, αντιγράψτε απευθείας τον κώδικα στο παράθυρο κώδικα όπως φαίνεται στην παρακάτω εικόνα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, αυτός ο κώδικας λειτουργεί καλά, ωστόσο η διαγραφή γραμμής/στήλης θα τον παρακάμψει. Υπάρχει κάποια λύση σε αυτό; Υγεία, Ντέιβιντ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου David,
Ποια έκδοση του Excel χρησιμοποιείτε; Δοκίμασα τον κώδικα, ολόκληρες σειρές και στήλες στο καθορισμένο εύρος δεν μπορούν να διαγραφούν μετά την εφαρμογή του κώδικα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για τις πολύτιμες πληροφορίες.
Σχετικά με το παρακάτω 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,
Αφού προσπάθησα με διάφορες μεθόδους, δεν μπορώ να το πετύχω αυτό. Μετά την προσθήκη μιας νέας σειράς, η περιοχή θα κλειδωθεί Αμέσως και το κελί που εισήχθη πρόσφατα δεν μπορεί να επεξεργαστεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να γίνει κάτι παρόμοιο σε επίπεδο βιβλίου εργασίας;

Προσωπικό φύλλο εργασίας 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,
Εννοείτε να αποτρέψετε τη διαγραφή του εύρους "A1:M7000" σε όλα τα φύλλα εργασίας του τρέχοντος βιβλίου εργασίας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όχι, εννοούσα να ΜΗΝ επιτρέπεται η διαγραφή (χωρίς να προστατεύονται τα wks ή wkb).

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

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

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

Αντρές Σ.
Βαθμολογήθηκε το 5 από το 5
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL