اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

الاخ ابو احمد

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

مجدى يونس

قام بنشر

الاخ الفاضل

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

مجدى يونس

قام بنشر

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

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

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

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

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

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

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

كل الشكر

وفقكم الله

ابو الحارث

قام بنشر

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

مجدى يونس

اخي مجدي

سوال

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

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

ابواحمد

قام بنشر

السلام عليكم

=======

هذا الكود


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