Μετάβαση στο κύριο περιεχόμενο

Πώς να προστατεύσετε ή να κλειδώσετε τις τιμές των κυττάρων με βάση το χρώμα του φόντου;

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

Προστατέψτε ή κλειδώστε τις τιμές των κελιών με βάση το χρώμα φόντου με τον κωδικό VBA


βέλος μπλε δεξιά φούσκα Προστατέψτε ή κλειδώστε τις τιμές των κελιών με βάση το χρώμα φόντου με τον κωδικό VBA

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Προστατέψτε ή κλειδώστε τις τιμές των κελιών με βάση το χρώμα:

Sub lockcellsbycolor()
'Updateby Extendoffice
    Dim colorIndex As Integer
    colorIndex = 3
    Dim xRg As Range
    Application.ScreenUpdating = False
    For Each xRg In ActiveSheet.UsedRange.Cells
        Dim color As Long
        color = xRg.Interior.colorIndex
        If (color = colorIndex) Then
            xRg.Locked = True
        Else
            xRg.Locked = False
        End If
    Next xRg
    Application.ScreenUpdating = True
    MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub

Note: Στον παραπάνω κωδικό, ο αριθμός 3 μέσα στο colorIndex = 3 Το σενάριο υποδεικνύει τα κελιά κόκκινου χρώματος που θέλω να κλειδώσω, μπορείτε να το αλλάξετε σε άλλο ευρετήριο χρωμάτων που θέλετε να κλειδώσετε.

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

κελιά κλειδώματος doc κατά χρώμα 1

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

Συμβουλές: Για να λάβετε τον αριθμό ευρετηρίου χρωμάτων, μπορείτε να εφαρμόσετε την ακόλουθη λειτουργία που καθορίζεται από το χρήστη:

Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour, y a t il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans l onglet accueil pour mettre un fond de couleur sur les cases non protégés merci
This comment was minimized by the moderator on the site
How do you run this in a loop, so that all cells in all sheets that are not the specific color will be protected?
This comment was minimized by the moderator on the site
Can this be applied to a sheet with merged cells and can it recognize a cell color that is based on conditional formatting? I want to lock cells that are color code 15 and those cells are color code 15 based on a conditional format. Thank you in advance.
This comment was minimized by the moderator on the site
Bonjour,
j'aurais voulu savoir si il était possible de faire la même chose mais avec la valeur de la cellule plutôt que la couleur?
Par exemple: Verrouiller toutes les cellules dont la valeur est "-" de la plage B2:E25.

Merci d'avance
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations