اخفاء المعادلات بطريقة غير hidden & protect sheet

[essamov2]

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء وكل عام وانتم بخير .

الرجاء المساعدة فى ايجاد طريقة لاخفاء المعادلات بغير الطريقة المعتادة لان طريقة protect sheet  يعيبها انه لا يستطيع احد عمل اى شي فى الشيت بعد عمل الحماية واخفاء المعادلات .

ارجو التكرم بالمساعدة .

 

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

ممكن ان تعمل  protect على الخلايا التي تحتوي معادلات فقط وباقي الخلايا تتركها غير محمية

هذا الملف مثال على ذلك (الحماية فقط في النطاق الاخضر ) اما باقي الخلايا ان كانت فيها معادلات اولا غير محمية)

من خلال الكود يمكنك تغيير حجم النطاق الى ما تريد

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Me.Unprotect
Me.Cells.Locked = False
Dim My_SELECT As Range
Dim CEL As Range
Set My_SELECT = Intersect(Range("A1:F7"), Selection)
If My_SELECT Is Nothing Then GoTo End_me
 With Me
    For Each CEL In My_SELECT
        If CEL.HasFormula Then
           With CEL
            .Locked = True
            .FormulaHidden = True
            .Interior.ColorIndex = 6
           End With
         End If
     Next
 End With
End_me:
  Me.Protect
    Application.EnableEvents = True

End Sub

 

الملف مرفق

Protect_formula.xlsm

[essamov2]

مشكور اخي وجاري التجريب جعله الله فى ميزان حسناتك