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

Πώς να κλειδώσετε ή να προστατεύσετε κελιά μετά την εισαγωγή δεδομένων ή την εισαγωγή στο Excel;

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

Κλείδωμα ή προστασία κελιών μετά την εισαγωγή δεδομένων ή εισαγωγή με κωδικό VBA


Κλείδωμα ή προστασία κελιών μετά την εισαγωγή δεδομένων ή εισαγωγή με κωδικό VBA

Για παράδειγμα, το συγκεκριμένο εύρος των κενών κελιών είναι A1: F8. Κάντε τα εξής για να κλειδώσετε αυτά τα κελιά μετά την εισαγωγή δεδομένων στο Excel.

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

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

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

Κωδικός VBA: Κλείδωμα ή προστασία κελιών μετά την εισαγωγή ή εισαγωγή δεδομένων

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:="123" 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

Note: Στον κώδικα, το "A1: F8" είναι το εύρος που χρειάζεστε για την εισαγωγή δεδομένων. και "123" είναι ο κωδικός πρόσβασης αυτού του προστατευμένου φύλλου εργασίας. Αλλάξτε τα όπως χρειάζεστε.

4. Τύπος άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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


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


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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (74)
Βαθμολογήθηκε το 5 από το 5 · αξιολογήσεις 1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, έχω ένα υπολογιστικό φύλλο με το εύρος A3:AN219, θα ήθελα να προστατεύσω αυτό το εύρος καθώς και όταν ολοκληρωθεί η εισαγωγή. Παρακαλώ βοηθήστε με σε αυτό. Δοκίμασα τον παραπάνω κώδικα αλλά δεν μου δουλεύει
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό δεν λειτουργεί όταν ανοίγει ξανά το αρχείο excel, βοηθήστε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκιμάστε αυτόν τον κωδικό αντί αυτού: Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range Set MyRange = Intersect(Range("A1:D100"), Target) If Not MyRange Is Nothing then Sheets("Sheet1").Κατάργηση προστασίας κωδικού πρόσβασης: ="hello" MyRange.Locked = True Sheets("Sheet1").Protect password:="hello" End If End Sub Και θυμηθείτε να αλλάξετε το εύρος (A1:D100), τον κωδικό πρόσβασης (γεια) και το φύλλο (Φύλλο1) ονόματα/αριθμούς αν δεν ταιριάζει με τα παραπάνω :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για τον κωδικό. Παρακαλώ ενημερώστε με πώς να κάνω αυτόματο κλείδωμα των κελιών (παρόμοια με αυτά που αναφέρονται από εσάς) ΜΟΝΟ ΜΕΤΑ την αποθήκευση του αρχείου
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, κύριε, αντιμετωπίζω ένα πρόβλημα με τον ίδιο κωδικό ενώ χρησιμοποιώ αυτόν τον κωδικό με άλλο cobe στο VBA. Σας παρακαλώ προτείνετε κάποια λύση Ευχαριστώ και με εκτίμηση Gourav
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Gourav,
Λυπούμαστε, δεν μπορώ να λύσω αυτό το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκίμασα τον κωδικό και φάνηκε να λειτουργεί κάπως. Ωστόσο, μου επιτρέπει να διαγράψω την ημερομηνία που εισήχθη στο κελί, αλλά με σταματά μόνο όταν προσπαθώ να εισάγω κάτι άλλο. Υπάρχει τρόπος να μην διαγραφούν δεδομένα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητή Stacy,
Δεν εμφανίζεται το ίδιο πρόβλημα στη δική μου περίπτωση. Ο κωδικός εμποδίζει τους χρήστες από την εισαγωγή καθώς και τη διαγραφή δεδομένων από το καθορισμένο εύρος. Θα παρέχετε την έκδοση του Office για περαιτέρω δοκιμή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Για όποιον μπορεί να έχει σκοντάψει εδώ μετά από αυτό το σχόλιο. Εάν πρέπει να ξεκλειδώνετε το φύλλο εργασίας ΚΑΘΕ ΦΟΡΑ που συμπληρώνετε ένα κελί, τότε πρέπει πρώτα: - Ξεκλειδώστε το υπολογιστικό φύλλο - Επισημάνετε την περιοχή του φύλλου εργασίας πάνω από την οποία εφαρμόζεται ο κώδικας - Κάντε δεξί κλικ και μεταβείτε στο "μορφοποίηση κελιών" - Μεταβείτε στο άκρα δεξιά καρτέλα που ονομάζεται «Προστασία» και ΑΠΑΙΡΕΤΕ ΤΗΝ ΕΠΙΛΕΞΗ της ενότητας «Κλειδωμένο» (Ακόμα κι αν εμφανίζεται ως συμπαγές γέμισμα αντί για τικ) Μετά από αυτό θα μπορείτε να εισάγετε δεδομένα σε πολλά κελιά χωρίς να χρειάζεται να ξεκλειδώνετε κάθε φορά. Λάβετε υπόψη σας εάν πρέπει να επισκεφτείτε ξανά τα κλειδωμένα κελιά για να διαγράψετε ή να επεξεργαστείτε πληροφορίες, ίσως χρειαστεί να επαναλάβετε τα παραπάνω βήματα. Ελπίζω ότι αυτό βοηθά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μου αρέσει να κλειδώνω μόνο τα επεξεργασμένα κελιά. Μόλις εισάγω δεδομένα στα κενά κελιά, πρέπει να κλειδώσω το επεξεργασμένο κελί για να κλειδωθεί αυτόματα αλλά όχι τα κενά κελιά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Subhash,
Μετά τη χρήση του κώδικα, μόνο τα επεξεργασμένα κελιά είναι κλειδωμένα στην καθορισμένη περιοχή. Και μπορείτε ακόμα να εισάγετε δεδομένα στα κενά κελιά στο καθορισμένο εύρος όπως χρειάζεστε. Αφού συμπληρώσετε το κενό κελί, θα κλειδωθεί αυτόματα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όχι, κλειδώνει ολόκληρο το εύρος ταυτόχρονα μετά από εισαγωγή δεδομένων σε ένα κελί της περιοχής
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ pradip,
Ποια έκδοση του Office χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για την κωδικοποίηση, αλλά έχω πρόβλημα να βάλω 2 κωδικοποιήσεις σε 1 φύλλο, παρακαλώ βοήθεια.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Δίκαια,
Λυπούμαστε, δεν μπορώ να λύσω αυτό το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Κύριε, θέλω να κλειδώσω μετά από μία φορά εισαγωγή δεδομένων!
Σαν να ακολουθώ έναν πελάτη και να γράφω κατάσταση, τότε οποιοσδήποτε άλλος υπάλληλος δεν μπορεί να το επεξεργαστεί ή να το τροποποιήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Η μέθοδος σε αυτήν την ανάρτηση μπορεί επίσης να σας βοηθήσει να λύσετε αυτό το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
τα κελιά δεν είναι καν επεξεργάσιμα...τι πήγε στραβά δεν καταλαβαίνω παρακαλώ βοηθήστε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Αρχικά, πρέπει να ορίσετε τα καθορισμένα κελιά σε Ξεκλείδωτα για επεξεργασία και, στη συνέχεια, να προστατέψετε το φύλλο εργασίας. Και τέλος εφαρμόστε το σενάριο VBA.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πρέπει να κωδικοποιήσει;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hi


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


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

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRg ως εύρος
Dim xSRg ως εύρος
On Error Συνέχιση Επόμενη
Ορισμός xSRg = Εύρος ("A1:F8")
Ορισμός xRg = Τομή(xSRg, Στόχος)
Εάν το xRg δεν είναι τίποτα, τότε βγείτε από το Sub
Target.Worksheet.Unprotect Password:="123"
xSRg.Locked = True
Target.Worksheet.Protect Password:="123"
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.
Υπάρχει τρόπος να κλειδώσετε μόνο τα κελιά και όχι ολόκληρο το φύλλο; Για παράδειγμα, εάν ένας χρήστης πληκτρολογήσει "Ναι" στο A2, τότε το A2 θα κλειδώσει αμέσως για να μην επιτρέψει καμία αλλαγή. Θα ήθελα ακόμα αν άλλοι μπορούσαν να επεξεργαστούν οποιοδήποτε άλλο κελί επίσης. Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Smith,
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να λύσετε το πρόβλημα. Παρακαλώ δοκιμάστε και σας ευχαριστώ για το σχόλιό σας.

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
On Error Συνέχιση Επόμενη
Target.Worksheet.Unprotect Password:="123"
Target.Locked = True
Target.Worksheet.Protect Password:="123"
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλημέρα,

Υπάρχει ούτως ή άλλως για να εμποδίσετε έναν χρήστη να κάνει δεξί κλικ στην "προβολή κώδικα" και να δει τον κωδικό πρόσβασης διαχειριστή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν πειράζει, το κατάλαβα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πως? δεν το κατάλαβα...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια σας χρειάζομαι βοήθεια


Στην πραγματικότητα κάνω ένα ρόστερ εργασίας για μια μεγάλη ομάδα ανθρώπων και αυτό το φύλλο είναι προσβάσιμο από όλους, ώστε να μπορούν να πληκτρολογούν τα αιτήματά τους για ρεπό/ετήσιες άδειες κ.λπ., ωστόσο θέλω να περιορίσω μόνο έναν αριθμό ατόμων σε άδεια για κάθε ημέρα (μέγιστο 5 σε άδεια) και αφού πληκτρολογηθούν 5 αιτήματα άδειας για την ημέρα, κανένας άλλος φορέας δεν μπορεί να συμπληρώσει πλέον αιτήματα για τη συγκεκριμένη ημερομηνία.


υπάρχει κάποιος κωδικός/συνάρτηση που θα υπολογίζει τον αριθμό των συγκεκριμένων αιτημάτων ανά ημέρα, τότε όταν συμπληρωθεί το όριο, τότε τα άλλα κελιά αποκλείονται για να μην υπερβαίνουν τα αιτήματα; ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή σας μέρα,
Καλώς ήρθατε να δημοσιεύσετε οποιαδήποτε ερώτηση στο φόρουμ μας: https://www.extendoffice.com/forum.html.
Θα λάβετε περισσότερες υποστηρίξεις Excel από τους επαγγελματίες ή άλλους οπαδούς του Excel.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια - αυτή η ανάρτηση ήταν πολύ χρήσιμη και λειτουργεί τέλεια. Ωστόσο, τα φίλτρα μου σταματούν να λειτουργούν όταν κλειδώνουν τα κελιά. Υπάρχει τρόπος να αντιμετωπιστεί αυτό; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Κιμ,
Συγγνώμη δεν μπορώ να βοηθήσω με αυτό. Η δυνατότητα φίλτρου είναι απενεργοποιημένη σε ένα προστατευμένο φύλλο εργασίας από προεπιλογή.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ φίλε, Αυτό έσωσε τη δουλειά μου: D
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
όταν βγαίνω από το τρέχον αρχείο που λειτουργεί και το άνοιξα ξανά, διαπίστωσα ότι το νέο κελί δεν κλειδώθηκε μετά την εισαγωγή δεδομένων, μόνο το προηγούμενο κελί κλειδώματος βρήκε κλείδωμα. οποιαδήποτε λύση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Nazmul,
Πρέπει να αποθηκεύσετε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα Macro-Enabled πριν το κλείσετε.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες