كيفية إخفاء الصيغة ولكن عرض النتيجة دون حماية ورقة العمل في Excel؟
في بعض الحالات، قد تحتاج إلى إخفاء الصيغ في ورقة العمل الخاصة بك لأسباب تتعلق بالخصوصية. يتحدث هذا المقال عن إخفاء الصيغ ولكن مع عرض النتائج دون حماية ورقة العمل في Excel.
إخفاء الصيغة ولكن عرض النتيجة دون حماية ورقة العمل باستخدام كود VBA
إخفاء الصيغة ولكن عرض النتيجة دون حماية ورقة العمل باستخدام كود VBA
لإخفاء الصيغ ولكن مع عرض النتائج دون حماية ورقة العمل، يرجى اتباع الخطوات التالية.
1. في ورقة العمل التي تحتاج فيها لإخفاء الصيغ ولكن مع عرض النتائج، يرجى النقر بزر الماوس الأيمن على تبويب الورقة، ثم تحديد قائمة عرض الكود من القائمة التي تظهر بعد النقر بزر الماوس الأيمن.
2. في نافذة Microsoft Visual Basic for Applications، يرجى نسخ ولصق كود VBA داخل نافذة الكود.
كود VBA: إخفاء الصيغة ولكن عرض النتيجة دون حماية ورقة العمل
Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xCell As Range
Dim xRg As Range
Set xRg = Range("C1:C10")
If xDic.Count <> xRg.Count Then
For Each xCell In xRg
xDic.Add xCell.Address, xCell.FormulaR1C1
Next
End If
If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
With Target
.Value = .Value
End With
Else
For Each xCell In xRg
xCell.Formula = xDic.Item(xCell.Address)
Next
End If
End Sub
ملاحظة: في الكود، C1:C10 هو نطاق الخلايا الذي تريد إخفاء الصيغ بداخله. يرجى تغييره بناءً على احتياجاتك.
3. ثم انقر فوق أدوات > مراجع…. قم بتحديد مربع Microsoft Script Runtime واضغط على زر موافق في نافذة مراجع – مشروع VBA. شاهد لقطة الشاشة:
4. اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.
من الآن فصاعدًا، عند النقر على الخلية في النطاق المحدد، سيتم إخفاء الصيغة فورًا في شريط الصيغة (F).
مقالات ذات صلة:
- كيفية قفل خلايا محددة دون حماية ورقة العمل بأكملها في Excel؟
- كيفية إزالة الصيغ من ورقة العمل ولكن الاحتفاظ بالقيم/النتائج في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد