اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

منذ ساعه, احمد بن ابراهيم said:

اسعد الله ايامكم 

تم استخدام هذا الكود 

بس المشكلة عند تحديد خلية غير محمية ( ليس بها معادلات ) مع الخلية المحمية

و عمل مسح لهم

تمسح المعادلات في الخلية المحمية و نفقد بياناتها

 في الملف المرفق قم بتظليل خليتين B5معB6( خلية محمية )   

ثم مسح 

سيتم مسح جميع البيانات  

 

وشكرا على حسن تواصلكم

55.rar

قم بتغيير الكود الى هذا

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

 

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

ابدعت استاذ سليم

اصبح الكود مميز

فالشكر لله ثم لكم و للجميع 

 

ممكن نضيف السماح بالنسخ و اللصق اذا كان هناك جداول متشابة التصميم

اذا امكن

تم تعديل بواسطه احمد بن ابراهيم
رابط هذا التعليق
شارك

  • 1 month later...
  • 10 months later...
  • 4 weeks later...
  • 4 months later...
في ١٤‏/١٠‏/٢٠١٢ at 01:14, أبو حنــــين said:

استعمل هذا الكود

 

 

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Range("C5").Formula = "=SUM(A:A)"

End Sub

 

 

في ١٤‏/١٠‏/٢٠١٢ at 05:23, أم عبد الله said:

أرجو شرح الكود لاستخدامه في عدة ملفات ولكم جزيل الشكر

كيف استخدام الكود وأين يوضع ممكن الشرح

تم تعديل بواسطه فراس قاسم
رابط هذا التعليق
شارك

  • 1 month later...
  • 9 months later...
في ١٤‏/١٠‏/٢٠١٢ at 23:09, أبو حنــــين said:

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

 

 

 

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

 

بارك الله فيكم 

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

  • 5 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information