كيفيه إخفاء المعادلات و حمايتها فى اكسيل 2003

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

السلام عليكم

اريد طريقه لاخفاء المعادلات و عدم الكتابه فى الحقول التى تحتوى على المعادلات برقم سرى لحمايه البرنامج من المستخدم الجديد الغير فاهم و بدون قصد يمكن ان يتسبب فى اعطال للبرنامج

طريقه غير Format - Format cells - Portection

لكثرة الجدوال الموجودة فى البرنامج هذه الطريقه ستأخذ منى وقت و مجهود كثير

[يوسف عطا]

جارى احضار كود للاخ الغالى ابو نصار يقوم بهذا العمل

كلمة السر 123

الكود يوضع فى حدث ThisWorkbook

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

Dim rFormulaCheck As Range

	    On Error Resume Next

	    Sh.Unprotect Password:="123"

	    With Selection

	    .Locked = False

	    .FormulaHidden = False

	    End With

	    If Target.Cells.Count = 1 Then

	    If Target.HasFormula Then

	    With Target

	    .Locked = True

	    .FormulaHidden = True

	    End With

	    Sh.Protect Password:="123", UserInterFaceOnly:=True

	    End If

	    ElseIf Target.Cells.Count > 1 Then

	    Set rFormulaCheck = Selection.SpecialCells(xlCellTypeFormulas)

	    If Not rFormulaCheck Is Nothing Then

	    With Selection.SpecialCells(xlCellTypeFormulas)

	    .Locked = True

	    .FormulaHidden = True

	    End With

	    Sh.Protect Password:="123", UserInterFaceOnly:=True

	    End If

	    End If

	    On Error GoTo 0

End Sub

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

او لحماية خلية تحتوي على معادلة يكفي ان نستعمل

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select

End Sub

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

مجهود اكثر من رائع اخى يوسف

سؤال بسيط حيث اننى من المبتدئين ماهى الطريقه لفك الباسورد لكى يكون البرنامج متاح لى لعمل اى تعديل على المعادلات

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

[يوسف عطا]

من قائمة أدوات

حماية

إلغاء حماية

ضع الباسوورد

يصبح الملف غير محمى

وبعد التعديل الذى تريده والخروج من الخلية يعود الملف للوضع المحمى تلقائياً

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

السلام عليكم

الاخ العزيز / يوسف اشكرك على مجهودك الرائع

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

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

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

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

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

السلام عليكم

الاخ العزيز / يوسف اشكرك على مجهودك الرائع

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

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

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

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

[يوسف عطا]

رجاء إرفاق الملف للوقوف على المشكلة و للتمكن من حلها

[emreamal2000]

مجهود رائع اخى يوسف

سؤال بسيط ماهى الطريقه لفك الباسورد لكى يكون البرنامج متاح لى لعمل اى تعديل على المعادلات

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

[يوسف عطا]

مجهود رائع اخى يوسف

سؤال بسيط ماهى الطريقه لفك الباسورد لكى يكون البرنامج متاح لى لعمل اى تعديل على المعادلات

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

تمت الإجابة فى مشاركة رقم 5

[ghobashi]

اخى ابو حنين ازاى استخدم الكود اللى انتا كتبته وممكن شرح مبسط ليه

[حسنى عبد العزيز]

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

وارجو ان يتسع صدرك لى فأنا بحمد\ الله تعالى استعملت الكود بتاع حضرتك

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