إخفاء المعادلات في جميع الأوراق بكلمة سر بضغطة زر واحدة

[ريان أحمد]

السلام عليكم

أريد تصميم زر بحيث مجرد الصغط عليه يقوم بإخفاء جميع المعادلات دفعة واحدة في جميع الأوراق

[ريان أحمد]

للرفع

[أبو حنــــين]

للحماية استعمل هذا الكود :

Private Sub CommandButton1_Click()

On Error Resume Next

For Each Sh In ThisWorkbook.Sheets

Sh.Protect Password:="123"

Next

End Sub

و لفك الحماية استعمل هذا الكود :

Private Sub CommandButton2_Click()

On Error Resume Next

For Each Sh In ThisWorkbook.Sheets

Sh.Unprotect Password:="123"

Next

End Sub

حيث الاعداد 123 هي كلمة السر و يمكنك تغييرها

[ريان أحمد]

السلام عليكم اخي ابو حنين

اقصد إخفاء صيغة المعادلات في شريط الصيغة وليس التعديل فيها

[أبــو حبيبـــة]

السلام عليكم / الاخ ابو حنين

جربت الكود و لكن لم يتم التشغيل ولازالت الاكواد تظهر عند الوقوف فى الخانات التى بها معادلات

هل يمكن شرح طريقه التطبيق مع إضافه حمايه للخانه بعدم الكتابه فيها لحمايه المعادلات من المستخدمين الاخرين

[أبو حنــــين]

قبل كتابة الكود يجب عمل الآتي :

ـ 1 ) تحديد كل خلايا الورقة الاولى

ـ 2 ) الضغط بيمين الفأرة للوصول الى : تنسيق

ـ 3 ) ثم الذهاب الى حماية

ـ 4 ) ثم التأشير على كلمة : مخفية

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

ثم تقوم بتشغل الكود

[ريان أحمد]

ولكن في برنامجي هناك 25 ورقة تحتتوي على الكثير من المعادلات مما يجعل المهمة طويلة يعني هل هناك كود يتعرف على المعادلة تلقائيا ويقوم بتشفيرها وإخفائها

[أبو حنــــين]

جرب المثال التالي

نموذج.rar

[يوسف عطا]

Sub حماية()

    Cells.Select

    Selection.Locked = True

    Selection.FormulaHidden = True

End Sub

[أبو حنــــين]

.

نموذج.rar

[ريان أحمد]

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