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

[Yasser Fathi Albanna]

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

 

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

اخى وأستاذى الفاضل أيو حنين

هذا الكود رائع جدا

ولكن هل فى إمكانية لهذا الكود إخفاء المعادلات وعدم ظهورها أيضا

لأن هذا الكود يجعل عند الوقوف على الدالة والثبات عليها معرفة صيغة المعادلة

هل فى إمكانية للمطلوب

وجزاك الله خيرا

[Yasser Fathi Albanna]

 

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

 

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

اخى وأستاذى الفاضل أيو حنين

هذا الكود رائع جدا

ولكن هل فى إمكانية لهذا الكود إخفاء المعادلات وعدم ظهورها أيضا

لأن هذا الكود عند الوقوف على الدالة والثبات عليها  يقوم بمعرفة صيغة المعادلة

هل فى إمكانية للمطلوب

وجزاك الله خيرا

 

اخى وأستاذى الفاضل أيو حنين

هذا الكود رائع جدا

ولكن هل فى إمكانية لهذا الكود إخفاء المعادلات وعدم ظهورها أيضا

لأن هذا الكود عند الوقوف على الدالة والثبات عليها  يقوم بمعرفة صيغة المعادلة

هل فى إمكانية للمطلوب

وجزاك الله خيرا

[ياسر خليل أبو البراء]

الأخ الحبيب ياسر

جرب الملف التالي ... بحماية الورقة

 

Restrict Cursor Movement To Unprotected Cells.rar

[Yasser Fathi Albanna]

الأخ الحبيب ياسر

جرب الملف التالي .. بحماية الورقة

أخى وحبيبى أ / ياسر

كود رائع وفكرة رائعة جدا جدا

سلمت يداك دائما تبهرنى بأعمالك

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

[ahmd_asd4]

كود أكثر من رائع

في مشكلة عندما  تم نسخ الكود إلى أكثر من ملف منفصل لا يعمل ما السبب؟؟!!!!

ولكم جزيل الشكر

بمعنى أنه اشتغل في ملف و باقي الملفات لم يشتغل

[shmtarek]

في الملف المرفق أريد تطبيق حماية المعادلات من العبث والتغيير وإخفائها بدون الحاجة لحماية الورقة والسبب في ذلك لأن ملف العمل عندي المراد حماية معادلاته يحتوي على أكواد فرز وتصفية والعديد من المعادلات والاكواد وحماية الورقة يؤدي إلى إلغاء عمل هذه الأكواد ويعطي رسائل خطأ سببها حماية ورقة العمل

 

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

 

لكم جزيل الشكر والاحترام

حماية للمعادلات بدون حماية ورقة العمل.rar

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

 

[محمد عبد الناصر]

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

من ساعت ما عملو تحديث للموقع مش عارف اجيب اى حاجه قديمه من هنا الاول كنت بدخل ادور فى المواضيع

تم تعديل أغسطس 4, 2015 بواسطه محمود فؤااد

[محي الدين ابو البشر]

 

السلام عليكم

الرابط لا يعمل ممكن طريقة اخرى رجاء

[ياسر خليل أبو البراء]

إخواني الكرام

أعتذر عن التأخر في الرد على هذا الموضوع بالذات فقد ظهر لي أن الموضوع به مشاركة غير مقرؤءة فلما تصفحت الموضوع وجد آخر رد للأخ الحبيب ياسر فتحي

وبعد ذلك بيوم تقريباً وجدت أن الموضوع غير مقروء بالنسبة لي ووجدت آخر مشاركة للأخ ياسر فتحي

فبدا لي أن الأمر يتعلق بالموقع ومشاكله ولم ألاحظ إلا الآن أن هناك صفحة ثانية للموضوع (وهذه ميزة افتقدناها مع التحديث الجديد) لأنه في السابق كان هناك فهرس للصفحات في المنتدى فكان بالإمكان الانتقال لآخر صفحة بشكل مباسر ... والله زمان

المهم مطولش عليكم قولوا إنت طولت خلاااااااااااص وخدت من وقتكم

إليكم الحل التالي عله يفي بالغرض وينهي هذه المشكلة تماماً..

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

هو السطر دا وبس وخلصت الحكاية

تم تعديل أغسطس 5, 2015 بواسطه ياسر خليل أبو البراء

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

انسخ هذا الكود الى حدث الصفحة و اعطني رأيك

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

 

 

تم تعديل أغسطس 6, 2015 بواسطه سليم حاصبيا

[aboghazi]

رائع اخي سليم

[جمال جبريل]

السلام عليكم ورحمة الله وبركاته

اريد كود عند الضغط على زر ، يمسح كل المعادلات ويترك قيمها من جميع الاوراق او المصنف كله

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم جمال

عادةً لا يلتفت للطلبات في المشاركات الفرعية لذا من الأفضل دائماً طرح موضوع جديد كما فعلت ، وقد تم الرد في موضوعك

تقبل تحياتي

[محمد دودان]

شكرا على الموضوع المهم جدا ولكن أخي لم تطبق معي المعادلة هل ممكن توضيح بالصور وأين اضع المعادلة في اي حقل من أجل اخفاء المعادلات كلها

[محمد دودان]

هل من رد حول المعادلة فالمعادلة أما ناقصة أو غير صحيحة هل من عرض تصويري

[ياسر خليل أبو البراء]

أخي الكريم محمد

أهلا بك في المنتدى ونورت بين إخوانك

الموضوع مشروح بالتفصيل في الموضوع على هذا الرابط

الرابط من هنا

تقبل تحياتي

[محمد دودان]

جزاك الله خيرا أخي الكريم سأتابع الموضوع ونتعلم بفضل الله ثم ثم ثم بفضل إخواني بالمنتدى

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

وشكراً

[ياسر خليل أبو البراء]

قم بإرفاق الكود الذي تود شرحه أو التعديل عليه ..وليكن الكود بين أقواس الكود لكي يظهر بشكل منضبط

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

On 12/2/2014 at 10:38 PM, morestudy said:

السلام عليكم ورحمة الله وبركاته.

أستاذي الفاضل أشكرك على هذا الكود الرائع والذي نفعني في حماية معادلاتي من التغيير.

سؤالي هذا الكود يقوم بحماية الخلايا التي فيها معادلات ولكن عندما نقوم بعمل تضليل للخلية التي فيها معادلة وخلية ليس فيها معادلة وقمنا بحذفها فإن المعادلة تُحذف. فهل هناك طريقة للإضافة على هذا الكود أمر بمنع حذف المعادلات حتى ولو ضللنا خلايا كثيرة.

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

بارك الله في جهودك ابو حنين

نرجوا منكم حل مشكلة الحذف بعد التظليل

morestudy كما ذكر الاستاذ 

للأهمية

ولكم ولجميع المبدعين الشكر الجزيل

[حسين مامون]

في ٦‏/٨‏/٢٠١٥ at 15:37, سليم حاصبيا said:

هذا الكود يسمح لك بتحديد الخلية المحمية فقط دون ان يسمح بأي اجراء عليها(حذف--- تعديل---نسخ ---الخ) و يخفي المعادلة ايضاً  و لا يأخذ بالحسبان الا المعادلات ( جربه و اعطني رأيك)

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

 

 

كود راءع اخي سليم

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

On 12/2/2014 at 10:38 PM, morestudy said:

 

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

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

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

و عمل مسح لهم

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

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

ثم مسح 

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

 

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

55.rar