انتقل إلى المحتوى الرئيسي

ثلاث طرق لإخفاء / إخفاء محتويات الخلية بسرعة بعلامة النجمة أو سلسلة أخرى في Excel

في بعض الأحيان ، قد ترغب في إخفاء بعض محتويات الخلية أثناء مشاركة المصنف مع مستخدمين آخرين كما هو موضح أدناه. هنا ، ستقدم هذه المقالة ثلاث طرق لإخفاء الخلايا بعلامة النجمة لإخفاء المحتويات في Excel.
خلية قناع doc 1


إخفاء وإخفاء محتويات الخلية بعلامة النجمة مع تنسيق الخلايا

في Excel ، لإخفاء محتويات الخلية بعلامة النجمة ، يمكنك استخدام وظيفة تنسيق الخلايا.

1. حدد الخلايا التي تريد إخفاءها بعلامة النجمة ، ثم انقر بزر الماوس الأيمن للتحديد تنسيق الخلايا من قائمة السياق.
خلية قناع doc 2

2. في ال تنسيق الخلايا الحوار تحت رقم الهاتف علامة التبويب، حدد Custom تبدأ من الفئة قائمة ، ثم اكتب ؛؛؛ ** في مربع النص تحت النوع.
خلية قناع doc 4

3. انقر OK، الآن تم إخفاء محتويات الخلية المحددة بعلامات نجمية.
خلية قناع doc 3

ولكن يمكن أيضًا عرض محتويات الخلية في شريط الصيغة.
خلية قناع doc 5

4. ضع المؤشر على الخلية التي لا تريد إخفاء محتوياتها ، ثم انقر فوق التقيم > حماية ورقة، وإلغاء التحديد حدد فتح الخلايا و تنسيق الخلايا الخيار (خيارات أخرى يمكنك التحقق منها حسب حاجتك) ، ثم اكتب وأكد كلمة المرور لحماية الورقة في مربعات الحوار المنبثقة.
خلية قناع doc 6

ثم تم إخفاء محتويات الخلية وإخفائها بعلامات نجمية.

ملاحظات: إذا كانت محتويات الخلية عبارة عن سلسلة رقمية ، بهذه الطريقة فقط مع عرض محتويات الخلية على أنها فارغة.
خلية قناع doc 7


إخفاء الصفوف التي تحتوي على # N / A أو قيم خطأ أخرى محددة بواسطة رمز VBA

إذا كنت تريد إخفاء كل من الأرقام والنصوص ، فيمكنك تطبيق كود VBA.

1. حدد الخلايا التي تريد تشفيرها ، واضغط على ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ثم انسخ الكود أدناه والصقه في الوحدة النمطية الجديدة.

فبا: إخفاء صفوف الخطأ # 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 for Excel:

1. تشفير الخلايا فارغة
2. تشفير الخلايا بالأحرف
3. تشفير الخلايا بسلسلة محددة.

يحتوي Kutools for Excel على 300 أداة متقدمة لحل 90% من ألغاز Excel، ويوفر لك نسخة تجريبية مجانية مدتها 30 يومًا.

بعد تثبيت مجاني Kutools for Excel (نسخة تجريبية مجانية لمدة 60 يومًا)، يرجى اتباع الخطوات التالية.

1. حدد الخلايا التي تريد إخفاءها ، ثم انقر فوق كوتولس بلس > تشفير الخلايا.
خلية قناع doc 9

2. ثم في مربع الحوار المنبثق ، اكتب كلمة المرور وأكدها ، ثم في ماسك قسم ، حدد الخيار الذي تحتاجه.
خلية قناع doc 10

3. ثم اضغط Ok. في الوقت الحاضر ، تم إخفاء جميع الخلايا المحددة.

تحقق بدون اضاءة، تعرض الخلايا سلسلة من الثرثرة.
خلية قناع doc 11
خلية قناع doc 12

تحقق فحم الخيار ، يمكنك كتابة أي حرف في مربع النص ، ثم ستعرض الخلايا الحرف فقط.
خلية قناع doc 13
خلية قناع doc 14

تحقق خيط الخيار ، ثم اكتب السلسلة التي تريد عرضها الخلايا.
خلية قناع doc 15
خلية قناع doc 16

معلومه- سرية: إذا كنت تريد فك تشفير الخلايا أو عرض محتويات الخلية ، يمكنك النقر فوق كوتولس بلس > فك تشفير الخلايا، ثم اكتب كلمة المرور لفك تشفير بنجاح.
خلية قناع doc 17


عمليات أخرى (مقالات) متعلقة بالإخفاء

إخفاء الصفوف على أساس القيمة
يوفر هذا البرنامج التعليمي بعض الطرق لإخفاء الصفوف بناءً على القيمة (تساوي / أكبر من / أقل من) في عمود آخر في Excel.

إخفاء جزء من السلسلة النصية
في بعض الأحيان ، تريد إخفاء جزء من السلسلة لحماية المعلومات الخاصة ، مثل رقم الهاتف 123-xxx-xxxx ، كيف يمكنك أن تفعل؟ في هذا المقال ستجد الحلول السهلة.

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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