كود لاخفاء المعادلات

[الشيباني1]

اخواني الاعزاء تحية طيبه في المرفق كود رائع من ابداعات الاستاذ ابو عبد الله ارجو التفضل بالمساعده بكود آخر يعيد المعادلات والدوال التي تم اخفاؤها بالكود الاول للحاجة الماسة له مع الامتنان

حذف المعادلات يالأوراق المختارة-1.zip

[طارق محمود]

السلام عليكم

أخي الحبيب

لايمكن استداد المعادلات التي تم مسحها (وليس اخفاؤها) بهذا الكود

يمكنك فقط تبديل هذا الكود ليحفظ في مكان سري (مثلا) المعادلات قبل مسحها

وبهذا تستطيع استردادها من ذلك المكان

ولكن ماتم مسحه بالفعل لايمكن استرداده

[الشيباني1]

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

[طارق محمود]

أعتقد أن ذلك سهل في العمل ولكنه يأخذ وقتا

[الحسامي]

السلام عليكم

بعد اذن اخي المهندس طارف

هنا ملف من نحف استاذنا ابو تامر لتشفير وفك تشفير الملفات

ممكن ان تستفيد منه

وهنارابط الموضوع الاصلي

تشفير الملفات

تشفير الملفات.rar

[الشيباني1]

استاذنا العزيز مع شكري وتقديري للمساهمه بملف التشفير الرائع لكنه مع الاسف لا يوصلني الى مبتغاي اتمنى ان يسع وقتكم ووقت الاستاذ طارق الذي اتحفنا ويتحفنا بالروائع لحل جميل وشاف مع الامتنان

[الشيباني1]

اساتذتنا الاعزاء مع شكري وتقديري الملف لا يوصلني الى مبتغاي رغم بداعته اتمنى ان يسع وقت الاستاذ طارق ليتحفنا كما عودنا بحل يخدم الموضوع اكثر مع الامتنان

[MAHMOUD ALI YOUSSEF]

السلام عليكم

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

[عبدالله المجرب]

اخي الفاضل tofimoon4

وبعد اذن سيادة المراقب العام والاستاذ الحسامي

جرب المرفق حيث المعادلة مخفية بالاكواد

والباسوورد 123

ابواحمد

ابواحمد.rar

[saad abed]

الساده الاساتذه الاجلاء

والله اذا تعددت الحلول وطرحت البدائل تعم الفائده

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

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

اخى ابو احمد

كود جميل ولكن فيه عيب مضيقنى

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

ممكن لحل للموضوع ده وجزاك الله خيرا

[الشيباني1]

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

[عبدالله المجرب]

الساده الاساتذه الاجلاء

كود جميل ولكن فيه عيب مضيقنى

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

ممكن لحل للموضوع ده وجزاك الله خيرا

تفضل اخي سعد المرفق بعد التعديل وازالة الرسالة

ابواحمد.rar

[الشيباني1]

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

[طارق محمود]

السلام عليكم

بالمرفق حل متواضع ولكنه يفي بالغرض إن شاء الله

استخدمت نفس كود أخي الجليل العبقري / ابو عبد الله

أضفت فقط إليه

جزء خاص بالسؤال عن كلمة سر

وجزء خاص بتسجيل المعادلات قبل حذفها

ويتم التسجيل في ورقة جديدة يكون اسمها هو نفس كلمة السر

وعند الاسترجاع

يقرأ كود الإسترجاع CONTROL+SHIFT+B

من هذه الورقة بعدما تعطيه اسمها (كلمة السر)

ويعيد إنشاء المعادلات في نفس مكان تواجدها الأصلي

وتظل الورقة محفوظة ومخفية

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

وإنشاء ورقة جديدة تحمل بيانات الحذف الجديدة

أرجو أن يكون هذا ماتريد

تفضل المرفق

حذف المعادلات يالأوراق المختارة-1.rar

[طارق محمود]

هذا هو الكود

وقد تركته مفتوحا

تستطيع تسجيله ايضا بكلمة سر منفصلة ، لن تؤثر علي الحماية وخلافه

Sub TURN_2_VALUES()

Dim dd(9999) As String

mypass = InputBox("إعطي كلمة سر لإخفاء المعادلات")

   Dim ws As Worksheet

   Dim CEL As Range

	On Error Resume Next

   Application.ScreenUpdating = False

	For Each ws In ActiveWindow.SelectedSheets

         	For Each CEL In ws.UsedRange

          	If CEL.HasFormula = True Then

            	n = n + 1

            	dd(n) = ws.Name & ":" & CEL.Row & ":" & CEL.Column & ":" & CEL.FormulaR1C1

            	CEL = CEL.Value

          	End If

         	Next

  	Next

  Application.DisplayAlerts = False


    	For i = 1 To Sheets.Count

    	If Sheets(i).Name = mypass Then Sheets(i).Delete: GoTo 10

    	If Sheets(i).Visible = False Then Sheets(i).Delete: GoTo 10


    	Next i

  Application.DisplayAlerts = True


10  	Sheets.Add

    	ActiveSheet.Name = mypass

    	[a1].Select


    	For i = 1 To n

        	For j = 1 To 3

        	X = WorksheetFunction.Search(":", dd(i))

        	Cells(i, j) = Left(dd(i), X - 1)

        	dd(i) = Right(dd(i), Len(dd(i)) - X)

        	Next j

        	Cells(i, 4) = Right(dd(i), Len(dd(i)) - 1)


    	Next i

ActiveSheet.Visible = False

Sheets(1).Select

Application.ScreenUpdating = True

End Sub


Sub TURN_2_Form()

mypass = InputBox("إعطي كلمة سر الإسترجاع للمعادلات")


rr = Worksheets(mypass).UsedRange.Rows.Count

For i = 1 To rr

	X = Worksheets(mypass).Cells(i, "B")

	Y = Worksheets(mypass).Cells(i, "C")

	Z = Worksheets(mypass).Cells(i, "a")

	Worksheets(Z).Cells(X, Y).FormulaR1C1 = "=" & Worksheets(mypass).Cells(i, "D")


Next i


End Sub

[الشيباني1]

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

[saad abed]

اخى المهندس طارق

والله ظهرت العبقرية الهندسية فى هذا الكود

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

ونفع بك واكرمك الله

اخوك سعد عابد

[MAHMOUD ALI YOUSSEF]

جزاكم الله وجعل الله ذلك فى ميزان حسناتكم :fff: :clapping: :fff:

[bowman]

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

[أبو محمد أشرف]

جزاك الله خيرا بس لو ممكن الشرح تانى كيفية وضعة وتشغيله فى فيجول بيسك الخاص بالإكسبل

[MAHMOUD ALI YOUSSEF]

الف شكر ليك يا استاذ طارق بجد والله كود جميل جدا تسلم ايدك

وجزاك الله كل خير :fff: :clapping: :fff:

[ياسر الحافظ]

الاستاذ طارق

كل الشكر

وفقك الله

ياسر الحافظ