اذهب الي المحتوي
أوفيسنا

إخفاء محتوى وقيمة الخلية من شريط الصيغة بدون حماية الخلايا


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم اساتذتى الأحباء ... أرجو ان تكونوا جميعا فى أحسن حال , التمس منكم العذر فى مساعدتى فى هذه المشكلة وهى انى قمت بعمل تنسيق للخلايا لإخفاء محتواها وهذا هو التنسيق المستخدم وكما هو موجود بالملف بالعمود الثانى B بداية من الخلية B2

;;;**

ولكنى فوجئت بظهور قيم ومحتوى الخلايا على شريط الصيغة ... هل هناك طريقة فى اخفاء قيمة الخلايا أيضاً على شريط الصيغة او ظهورها على شكل نجوم وأن يكون كل ذلك بدون إخفاء شريط الصيغة لأنى أحتاجه كثيراً فى معادلات بخلايا أخرى ,أو بدون عمل حمايا للخلايا.. ولكم منى جزيل الشكر

Untitled.png

اخفاء محتوى وقيمة الخلية.xlsm

رابط هذا التعليق
شارك

شريط الصيغة يعطي القيمة الحقيقية للخلية (بدون ماكياج الذي هو تنسيق الخلايا) لأن تنسيق الخلايا هو فقظ قتاع او (كمّامة ترتديها الخلية) لا تحميها من كورونا الذي هو شريط الصيغة

ومهما فعلت لا يمكنك اقتاعه بعدم فضح اسرار الخلية الّا اذا أخفيته

فهو مثل نسوان هذه الايام تستطيع الاحتفاظ بالسر حتى أوّل هاتف

  • Like 2
  • Haha 3
رابط هذا التعليق
شارك

  • أفضل إجابة

جرب هذا الكود (مع تعديله الى النطاق الذي نريده)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
  If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
   Application.DisplayFormulaBar = False
  Else
   Application.DisplayFormulaBar = True
   End If
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

 

  • Like 2
رابط هذا التعليق
شارك

بعد اذن الأستاذ سـلـيم وزيادة فى اثراء الموضوع بدون اخفاء شريط الصيغة ... يمكنك وضع هذا الكود فى حدث الصفحة

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("b2:b100")
    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

 

  • Like 4
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information