اذهب الي المحتوي
أوفيسنا

اخفاء صيغة المعادلة


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

السلام هليكم

=======

بارك الله فيك ابو احمد

اخى ياسر يبدو انك نسيت ارفاق الملف

اخى السائل اليك شرح فيديو لطريقة اخى ابو احمد للافادة

شرح اخفاء النعادلة من شريط الصيغة.rar

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

الاخ ابو احمد

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

مجدى يونس

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

الاستاذ المشرف هشــــــــــــام

بداية كل الشكر ....... جزاك الله كل الخير

والله يااستاذنا دخلت على الموضوع ولم يكن هناك ردود

فقمت بتجهيز الرد الذي قرأته حضرتك

ولكن بسبب بطء النت الغير عادي عندي لاحظت ان هناك ردود سبقتني

فقمت بحذف المشاركة لانني لم اتمكن من تحميل المرفقات

ولكن عزائي ان حضرتك ( استاذنا الكبير ) واخي الاستاذ الكبير عبد الله المجرب قمتم بما يكفي ويزيد

كل الشكر

وفقكم الله

ابو الحارث

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

واتمنى طريقة اخرى بالمعادلات وجزاكم الله خير الجزاء

مجدى يونس

اخي مجدي

سوال

كيف لمعادلة ان تخفي معادلة؟؟

هل هذا ممكن؟؟ ام ان القصد غير ذلك (بالكود مثلاً)

ابواحمد

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

السلام عليكم

=======

هذا الكود


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

Dim rFormulaCheck As Range

    On Error Resume Next

    Sh.Unprotect Password:="Secret"

	    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:="Secret", 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:="Secret", UserInterFaceOnly:=True

		    End If

    End If

    On Error GoTo 0

End Sub

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

كلمة فك الحماية مثلا ستكون Secret

hh.rar

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

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

بعد اذن اخواني الاساتذة الكبار الأخ المبدع الاستاذ / عبد الله المجرب و الاخ الاستاذ العلامة / هشام شلبي

فقط لإثراء الموضوع

الاخ العزيز الأستاذ / مجدي يونس

تفضل هذا المرفق و ان شاء الله يكون هذا طلب حضرتك

و الله الموفق والمستعان

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

اخفاء المعادلة HaNcOcK.rar

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

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

الاخ الفاضل

اعزك الله كود اخر رائع ومختلف بارك الله فيكم وفى المنتدى

مجدى يونس

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

الاخ الاستاذ المشرف : " هشـــــــــــــــــــــــام "

اخي الاستاذ " HaNcOcK " العزيز احمــــــــــــــــــد فضيلة

حلول مميزة .... كلنا نستفيد ....

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

ابو الحارث

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

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

الاخ الفاضل

اعزك الله كود اخر رائع ومختلف بارك الله فيكم وفى المنتدى

مجدى يونس

بارك الله في حضرتك و جزاك كل خير على دعائك الطيب

اللهم علمنا ما ينفعنا و انفعنا بما علمتنا

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

الاخ الاستاذ المشرف : " هشـــــــــــــــــــــــام "

اخي الاستاذ " HaNcOcK " العزيز احمــــــــــــــــــد فضيلة

حلول مميزة .... كلنا نستفيد ....

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

ابو الحارث

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

الاخ الحبيب الغالي الاستاذ / ياسر الحافظ " ابو الحارث "

جزاك الله كل خير على مرورك الكريم و دعائك و كلماتك الطيبة

و الله الموفق والمستعان

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information