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

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

منذ ساعه, احمد بن ابراهيم 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

 

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

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

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

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

 

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

اذا امكن

تم تعديل أغسطس 22, 2016 بواسطه احمد بن ابراهيم

[عامر ياسر]

شكرا لكم جميعا

[منياوى]

رائع رائع رائع 

[صـدّيـق]

شكرا لكم على هذا الكود الرائع  لكن عندي سؤال

ماهي طريقة تطبيقه على جميع الصفحات؟ 

 

[rofa97]

بارك الله فيك

[ابن بنها]

في 9/4/2017 at 17:33, صـدّيـق said:

شكرا لكم على هذا الكود الرائع  لكن عندي سؤال

ماهي طريقة تطبيقه على جميع الصفحات؟

ماهي طريقة تطبيقه على جميع الصفحات؟

[فراس قاسم]

في ١٤‏/١٠‏/٢٠١٢ at 01:14, أبو حنــــين said:

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

 

 

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

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

End Sub

 

 

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

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

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

تم تعديل فبراير 23, 2018 بواسطه فراس قاسم

[جمعة العوامي]

شروحات وافية واراء متعددة بارك الله فيكم ...

[ا بو سليمان]

في ١٤‏/١٠‏/٢٠١٢ 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

 

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