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

Τρεις μέθοδοι κρύβουν / αποκρύπτουν γρήγορα τα περιεχόμενα των κυττάρων με αστερίσκο ή άλλη συμβολοσειρά στο Excel

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


Απόκρυψη και απόκρυψη περιεχομένων κελιού με αστερίσκο με Format Cells

Στο Excel, για να αποκρύψετε τα περιεχόμενα των κυττάρων με αστερίσκο, μπορείτε να χρησιμοποιήσετε τη λειτουργία Μορφοποίηση κελιών.

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

2. Στο κύτταρα μορφή διαλόγου, κάτω αριθμός καρτέλα, επιλέξτε Εξατομικευμένο από κατηγορία λίστα και στη συνέχεια πληκτρολογήστε ;;; ** στο πλαίσιο κειμένου κάτω Χαρακτηριστικά.
κελί μάσκας doc 4

3. κλικ OK, τώρα τα επιλεγμένα περιεχόμενα κελιού έχουν καλυφθεί με αστερίσκους.
κελί μάσκας doc 3

Ωστόσο, τα περιεχόμενα του κελιού μπορούν επίσης να προβληθούν στη γραμμή τύπων.
κελί μάσκας doc 5

4. Τοποθετήστε τον κέρσορα στο κελί που δεν θέλετε να αποκρύψετε τα περιεχόμενα και κάντε κλικ στο Βαθμολογία Κριτικής > Προστατέψτε το φύλλοκαι αποεπιλέξτε Επιλέξτε ξεκλείδωμα κελιών και κύτταρα μορφή επιλογή (άλλες επιλογές μπορείτε να ελέγξετε όπως χρειάζεστε), στη συνέχεια πληκτρολογήστε και επιβεβαιώστε τον κωδικό πρόσβασης για την προστασία του φύλλου στους αναδυόμενους διαλόγους
κελί μάσκας doc 6

Στη συνέχεια, τα περιεχόμενα του κελιού έχουν κρυφτεί και καλύπτονται με αστερίσκους.

Note: Εάν τα περιεχόμενα του κελιού είναι αριθμητική συμβολοσειρά, με αυτόν τον τρόπο μόνο με την εμφάνιση του περιεχομένου του κελιού ως κενό.
κελί μάσκας doc 7


Απόκρυψη σειρών με # N / A ή άλλες συγκεκριμένες τιμές σφάλματος με κωδικό VBA

Εάν θέλετε να αποκρύψετε τους αριθμούς και τα κείμενα, μπορείτε να εφαρμόσετε τον κωδικό VBA.

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

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

VBA: Απόκρυψη σειρών σφάλματος # N / A

Sub E_Cells()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xERg As Range
Dim xWs As Worksheet
Dim xStrRg As String
Dim xStrPw As String
xStrPw = ""
xStrPw = Application.InputBox("Enter Password", "", "", Type:=2)
If xStrPw = "" Then Exit Sub
On Error Resume Next
Set xERg = Selection
Set xWs = Application.ActiveSheet
Set xRg = xWs.Cells
xRg.Locked = False
xERg.Locked = True
xERg.NumberFormatLocal = "**;**;**;**"
xWs.Protect Password:=xStrPw, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub 

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

Συμβουλή:

1. Για την αποκρυπτογράφηση των κελιών, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα μακροεντολών.

Sub D_Cells()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xERg As Range
Dim xWs As Worksheet
Dim xStrRg As String
Dim xStrPw As String
xStrPw = ""
xStrPw = Application.InputBox("Type Password", "", "", Type:=2)
If xStrPw = "" Then Exit Sub
On Error Resume Next
Set xWs = Application.ActiveSheet
Set xRg = xWs.UsedRange
xERg.NumberFormatLocal = "**;**;**;**"
xWs.Unprotect Password:=xStrPw
For Each xERg In xRg
    If xERg.Locked Then xERg.NumberFormatLocal = "@"
Next
End Sub

2. Με τον κωδικό VBA, τα περιεχόμενα του κελιού μπορούν επίσης να προβληθούν στη γραμμή τύπων.


Κρυπτογράφηση και μάσκα περιεχομένου κελιού με αστερίσκο ή άλλη συμβολοσειρά

Εάν θέλετε να κρυπτογραφήσετε και να καλύψετε τα περιεχόμενα των κυττάρων με την ειδική συμβολοσειρά που χρειάζεστε, το Κρυπτογράφηση κελιούχαρακτηριστικό του Kutools για Excel μπορεί να κάνει μια καλή χάρη.

Το εργαλείο κρυπτογράφησης κελιών στο Kutools για Excel μπορεί:

1. Κρυπτογράφηση κελιών με κενό
2. Κρυπτογράφηση κελιών με χαρακτήρες
3. Κρυπτογράφηση κελιών με καθορισμένη συμβολοσειρά.

Το Kutools για Excel περιέχει 300 προηγμένα εργαλεία για την επίλυση του 90% των παζλ σας στο Excel και σας παρέχει μια δωρεάν δοκιμή 30 ημερών.

Μετά το δωρεάν εγκατάσταση του Kutools για Excel (δωρεάν δοκιμή 60 ημερών), κάντε τα παρακάτω βήματα.

1. Επιλέξτε τα κελιά που θέλετε να καλύψετε και, στη συνέχεια, κάντε κλικ στο Kutools Plus > Κρυπτογράφηση κυττάρων.
κελί μάσκας doc 9

2. Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, πληκτρολογήστε και επιβεβαιώστε τον κωδικό πρόσβασης και μετά Μάσκα ενότητα, ελέγξτε την επιλογή όπως χρειάζεστε.
κελί μάσκας doc 10

3. Στη συνέχεια κάντε κλικ στο κουμπί Ok. Προς το παρόν, όλα τα επιλεγμένα κελιά έχουν καλυφθεί.

Έλεγχος Κανένας, τα κελιά εμφανίζουν μια σειρά από ασυναρτησίες.
κελί μάσκας doc 11
κελί μάσκας doc 12

Έλεγχος Char επιλογή, μπορείτε να πληκτρολογήσετε οποιονδήποτε χαρακτήρα στο πλαίσιο κειμένου και, στη συνέχεια, τα κελιά θα εμφανίζουν μόνο τον χαρακτήρα.
κελί μάσκας doc 13
κελί μάσκας doc 14

Έλεγχος Σπάγγος και στη συνέχεια πληκτρολογήστε τη συμβολοσειρά που θέλετε να εμφανίζονται τα κελιά.
κελί μάσκας doc 15
κελί μάσκας doc 16

Άκρο: εάν θέλετε να αποκρυπτογραφήσετε τα κελιά ή να εμφανίσετε τα περιεχόμενα του κελιού, μπορείτε να κάνετε κλικ Kutools Plus > Αποκρυπτογράφηση κυττάρωνκαι, στη συνέχεια, πληκτρολογήστε τον κωδικό πρόσβασης για να αποκρυπτογραφήσετε με επιτυχία.
κελί μάσκας doc 17


Άλλες ενέργειες (άρθρα) που σχετίζονται με την υποβοήθηση

Απόκρυψη σειρών με βάση την τιμή
Αυτό το σεμινάριο παρέχει ορισμένες μεθόδους απόκρυψης σειρών με βάση την τιμή (ίση με / μεγαλύτερη από / μικρότερη από) σε μια άλλη στήλη στο Excel.

Απόκρυψη μέρους της συμβολοσειράς κειμένου
Μερικές φορές, θέλετε να αποκρύψετε μέρος της συμβολοσειράς για την προστασία των προσωπικών πληροφοριών, όπως ο αριθμός τηλεφώνου 123-xxx-xxxx, πώς μπορείτε να το κάνετε; Σε αυτό το άρθρο, θα βρείτε τις εύκολες λύσεις.

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola, yo lo solucione asi:
1. Formula: =SI(J7=1;lo que quieren mostrar;"******") y luego,
2. Macro: una macro que descargue el 1 en la celda J7.
3. Boton: un botón que ejecute la macro, puede llamarse mostrar cifrado o algo asi.

De esta manera, se logra solucionar las mascaras u ocultamiento de celdas.
This comment was minimized by the moderator on the site
Is it possible to create a mask email without the email account's password?
This comment was minimized by the moderator on the site
I suggest this:
A1 content               - Expected - foo***********com

Formula:=LEFT(A1,3)&REPT("*",LEN(A1)-6)&RIGHT(A1,3)
Remove left or/and right and change the length to control what to replace with * and what to keep at the beginning or at the end.
This comment was minimized by the moderator on the site
If you want to hide only some parts of the string, here is another way:

=LEFT(A1,3)&REPT("*",LEN(A1)-6)&RIGHT(A1,3)
Explanation:
1. LEFT - Will add some letters from the left of the phrase.2. REPT - Will repeat *, n times. where n can be LEN(A1) or LEN(A1)-X where X is the number fo letters that you want to keep showing3. RIGHT - Will add some letters from the end of the phrase.
If A1 content is formula will result in:
foo***********com
This comment was minimized by the moderator on the site
How do Mask baseon cell value :Sub tra5()Dim selrange As Range
Dim dgstring1, dgstring2, dgstring3, dgstring4 As String
dgstring1 = Sheet1.Range("F26")
dgstring2 = Sheet1.Range("F26")
dgstring3 = Sheet1.Range("F26")
dgstring4 = Sheet1.Range("F26")
dgstring = "dgstring1;dgstring2;dgstring3;dgstring4"
selrange.NumberFormatLocal = dgstring
End Sub

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