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

[هانى محمد]

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

;;;**

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

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

[سليم حاصبيا]

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

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

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

[هانى محمد]

شكراً لك استاذى الكريم سليم وبارك الله فى جهودكم

الا يوجد اى حل لذلك حتى وان كان بالأكواد ؟

[سليم حاصبيا]

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

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

 

[Ali Mohamed Ali]

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

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

 

[سليم حاصبيا]

الكود بشكل محتصر أكثر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.DisplayFormulaBar = _
   Intersect(Target, Range("b2:b10")) Is Nothing
End Sub

 

[هانى محمد]

بارك الله فيكم وفى جهودكم جميعاً كلها حلول ممتازة

[yara ahmed]

فكرة ممتازة وكود ممتاز بارك الله فيكم

استاذ على بارك الله فيك

استاذ سليم رائع استاذنا الفاضل بارك الله فيك اخي الكريم