موضوع مميز_اكواد متنوعه لاخفاء المعادلات دون حماية ورقه

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة    كود لاخفاء المعادلات

 

 

تم ارفاق كود الحل من الفاضل _ رحمه الله/  الحسامي _ عبدالله المجرب _ mahmoudfoxmam

كود اخفاء المعادلات_HOSSAMI).rar

كود اخفاء المعادلات (ABDALLAH).zip

اظهار و اخفاء المعادلات (MAHMOUD).rar

و كذلك المشاركه الهامه

إخفاء المعادلات في الاكسل بدون حماية الورقة

وبها مجموعة اكواد هامه لهذا الموضوع

 مهمه للساده / أبو حنــــين

 

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Target.HasFormula = True Then

ActiveCell.Offset(0, 1).Select

ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select

ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select

End If

End Sub

و الفاضل / ياسر خليل أبو البراء

Private Sub Workbook_Open()
'إخفاء المعادلات عن طريق حماية ورقة العمل ، قم بتحديد كل خلايا الورقة
'[Locked] كليك يمين ثم تنسيق خلايا وأزل علامة الصح بجانب الخيار المسمى
'حدد الخلايا المراد عمل حماية لها والتي تحتوي المعادلات المراد حمايتها
'[Locked] كليك يمين عليها ثم تنسيق خلايا وضع علامة صح بجانب الخيار المسمى
'[Protect Sheet] ثم الأمر [Review] قم بعمل حماية لورقة العمل من خلال التبويب
'قم بوضع الكود التالي في حدث المصنف لتتم الحماية عن طريق عدم تمكين المستخدم
'من اختيار أو تحديد الخلية المحمية وبذلك يتم حمايتها وإخفائها من العبث
'---------------------------------------------------------------------------
    Worksheets("Sheet1").EnableSelection = xlUnlockedCells
End Sub

و الطريقه التقليديه بحماية الورقه طريقة بسيطة لإخفاء المعادلات في ورقة العمل

و الفاضل / سليم حاصبيا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = False
If Target.HasFormula = True Then
        Application.DisplayFormulaBar = False
        ActiveSheet.Protect
        Application.ScreenUpdating = True
        Exit Sub
    Else
        Application.DisplayFormulaBar = True
        ActiveSheet.Unprotect
End If
Application.ScreenUpdating = True
End Sub

و اخر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Unprotect
 If Target.HasFormula Then
        With Target
         .Locked = True
         .FormulaHidden = True
        End With
        With ActiveSheet
             .Protect
             .EnableSelection = xllockedCells
        End With
 End If

End Sub

و اخر 
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Unprotect
    '==================
  For Each cel In Target.Cells
    Application.EnableEvents = False
                  If cel.HasFormula Then
                                cel.Locked = True
                                cel.FormulaHidden = True
                                         With ActiveSheet
                                           .Protect
                                           .EnableSelection = xllockedCells
                                        End With
                               GoTo 1:
                   Else
                       ActiveSheet.Unprotect
                   End If
      Next
1:
     Application.EnableEvents = True
     
End Sub

و لا تنسونا من صالح الدعاء

تحياتى

Restrict Cursor Movement To Unprotected Cells_YASSER.rar

تم تعديل أغسطس 23, 2016 بواسطه جلال الجمال_ابو أدهم

[أبو حنف]

ما شاء الله 

تجميعة ممتازة من عمالقة المنتدى الكبار  ....

حفظ الله الأحياء ورحم الله الأموات

[جلال الجمال_ابو أدهم]

أبو حنف

اخى الفاضل شاكر مرورك

[السعيد سعيدي]

زادك الله من فضله واسكنك الفردوس الاعلى آميــــــــــن

[احمد بن ابراهيم]

تسلم ابو أدهم

الله يريح بالك  . تجميعة متميزة 

بارك الله في جهودكم

[جلال الجمال_ابو أدهم]

saidi said

احمد بن ابراهيم

الاخوة الافاضل جزاكم الله خيرا