Πώς να κλειδώσετε ή να προστατεύσετε κελιά μετά την εισαγωγή δεδομένων ή την εισαγωγή στο 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, θα κλειδωθούν αυτόματα. Και θα λάβετε ένα γρήγορο παράθυρο διαλόγου εάν προσπαθήσετε να αλλάξετε οποιοδήποτε περιεχόμενο κελιού αυτού του εύρους. Δείτε το στιγμιότυπο οθόνης:
Σχετικά Άρθρα:
- Πώς να κλειδώσετε όλες τις αναφορές κυττάρων σε τύπους ταυτόχρονα στο Excel;
- Πώς να κλειδώσετε ή να ξεκλειδώσετε κελιά με βάση τιμές σε άλλο κελί στο Excel;
- Πώς να κλειδώσετε την εικόνα / εικόνα στο κελί ή στο εσωτερικό του Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!