كيفية إخفاء الصيغة ولكن عرض النتيجة دون حماية ورقة العمل في 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؟