Πώς να κλειδώσετε και να ξεκλειδώσετε συγκεκριμένα κελιά με ένα πλαίσιο ελέγχου στο Excel;
Αυτό το άρθρο αφορά τη χρήση ενός πλαισίου ελέγχου για το κλείδωμα και το ξεκλείδωμα μιας σειράς καθορισμένων κελιών στο Excel.
Κλειδώστε και ξεκλειδώστε καθορισμένα κελιά με ένα πλαίσιο ελέγχου χρησιμοποιώντας τον κωδικό VBA
Κλειδώστε και ξεκλειδώστε καθορισμένα κελιά με ένα πλαίσιο ελέγχου χρησιμοποιώντας τον κωδικό VBA
Το παρακάτω σενάριο VBA μπορεί να σας βοηθήσει να ξεκλειδώσετε ή να κλειδώσετε μια σειρά καθορισμένων κελιών κατά τον έλεγχο ή την αποεπιλογή ενός πλαισίου ελέγχου στο φύλλο εργασίας. Κάντε τα εξής:
1. Πρώτον, πρέπει να καθορίσετε ένα όνομα στο εύρος των κελιών που πρέπει να κλειδώσετε και να ξεκλειδώσετε με ένα πλαίσιο ελέγχου.
Εδώ επιλέγω το εύρος A1: A14, πληκτρολογώ ένα όνομα Κλείδωμα μέσα στο Όνομα πλαίσιο και, στη συνέχεια, πατήστε το εισάγετε κλειδί. Δείτε το στιγμιότυπο οθόνης:
2. Στο φύλλο εργασίας περιέχει το πλαίσιο ελέγχου που θα χρησιμοποιήσετε για να κλειδώσετε και να ξεκλειδώσετε κελιά, κάντε δεξί κλικ στην καρτέλα Φύλλο και, στη συνέχεια, κάντε κλικ στο κουμπί Προβολή κωδικού από το μενού με δεξί κλικ.
Note: Το πλαίσιο ελέγχου θα πρέπει να είναι το πλαίσιο ελέγχου ActiveX κατά την εισαγωγή.
3. Στο αναδυόμενο παράθυρο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Κώδικας παράθυρο.
Κωδικός VBA: Κλειδώστε ή ξεκλειδώστε μια σειρά καθορισμένων κελιών με ένα πλαίσιο ελέγχου
Private Sub CheckBox1_Click()
Range("LockRng").Select
On Error Resume Next
If CheckBox1.Value = True Then
Selection.Locked = Fals
MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
Else
Selection.Locked = True
MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
End If
End Sub
Note: Στον κώδικα, το πλαίσιο ελέγχου 1 είναι το όνομα του πλαισίου ελέγχου, το LockRng είναι το όνομα του καθορισμένου κελιού εύρους. Μπορείτε να τα αλλάξετε όπως χρειάζεστε.
4. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Τώρα μπορείτε να δοκιμάσετε τον κωδικό. Κατά την αποεπιλογή του πλαισίου ελέγχου, a Kutools για Excel θα εμφανιστεί το παράθυρο διαλόγου για να σας πει ότι το καθορισμένο εύρος έχει κλειδωθεί, κάντε κλικ στο OK κουμπί.
Κατά τον έλεγχο του πλαισίου ελέγχου, όλα τα κελιά στο καθορισμένο εύρος θα ξεκλειδωθούν και θα λάβετε ένα Kutools για Excel εμφανίζεται το πλαίσιο διαλόγου, όπως φαίνεται παρακάτω.
Σχετικά Άρθρα:
- Πώς να φιλτράρετε δεδομένα με βάση το πλαίσιο ελέγχου στο Excel;
- Πώς να αποκρύψετε το πλαίσιο ελέγχου όταν η σειρά είναι κρυφή στο Excel;
- Πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου στο Excel;
- Πώς να επισημάνετε το κελί ή τη γραμμή με το πλαίσιο ελέγχου στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!