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

حماية الملف بالكود


إذهب إلى أفضل إجابة Solved by رؤوف1951,

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

بسم الله الرحمن الرحيم

الحماية

رغم أن شركة ميكروسوفت أمنت مجموعة من طرق الحماية في الإكسل ولكن برامج فك الحماية كثيرة ومتنوعة وإن لم ينفع هذا البرنامج فسينفع ذاك ولكن ما أقصده هو من الحماية هو "منع المتطفلين" عن العبث في ملفي ويكون ذلك بطرق كثيرة سأذكر منها طريقتين والباقي أتركة لمشاركات حضراتكم ونتمنى مشاركات عباقرة الموقع وعلى فكرة هذا الموضوع ليس خروجا من موضوعي السابق ولكن هو مرتيط به ولكم وافر التحية.

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

خطواتنا:

-         في ملف إكسل جديد ادخل أي بيانات فليس المهم هنا البيانات.

-         افتح نافذة VBE وقم بإدراج يوزرفورم وسمه "User_Password".

-         ضع على الفورم مفتاح و2 لابيل وتكست بوكس

-         في نافذة كود ThisWorkBook أكتب الكود التالي:

Private Sub WorkBook_Open()

    Application.Visible = False

User_Password.Show

End Sub

وقد تم شرح هذا الكود في موضوعي السابق

-         في نافذة كود الفورم أكتب الكود التالي:

Private Sub Cmd_Sheet_Click()

If Txt_Password.Value = "roaa" Then

Application.Visible = True

Unload Me

Exit Sub

End If

MsgBox "الكلمة غير صحيحة أدخلها مرة أخرى"

Txt_Password.Value = ""

Txt_Password.SetFocus

End Sub

Private Sub CmdClose_Click()

Unload Me

ActiveWorkbook.Close True

End Sub

Private Sub UserForm_QueryClose(cancel As Integer, closeMode As Integer)

If closeMode = 0 Then

cancel = True

MsgBox "عذرا الخروج من زر إغلاق"

End If

End Sub

سأكتفى في هذه الجلسة بهذا الجزء ولنا لقاء آخر إن شاء الله

رابط الملف هنا : كلمة السر "roaa"

 

Password_Example.rar

 

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

Private Sub Cmd_Sheet_Click()
If Txt_Password.Value = "roaa" Then
Application.Visible = True
Unload Me
Exit Sub
End If
MsgBox "الكلمة غير صحيحة - ادخل الكلمة مرة ثانية"
Txt_Password.Value = ""
Txt_Password.SetFocus
End Sub
Private Sub CmdClose_Click()
Unload Me
ActiveWorkbook.Close True
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closeMode As Integer)
If closeMode = 0 Then
cancel = True
MsgBox "عذرا الخروج من زر إغلاق"
End If
End Sub

جزاك الله خيرا .. وبارك فيك

اخي المحترم اريد برنامج يفك الملفات المحميه  الاكواد

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

أخى الكريم 

جزيتم عنا خيرا

ولكن من رؤيتى الخاصة ورؤية كثيرين غيري

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

وهذه الطريقة غير متوفرة لدى الجميع

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

وهذه الملفات متوفرة بالبنوك والشركات الكبري منعا من العبث فى أكوادها وهى الملفات الوحيده التى تعمل تماما بالأكواد ليس فيها معادله واحده 

كل ما تتخيله بالأكواد فقط ومهما كان حجم ملف الاكسل فإنه يعمل بكفاءة عالية جدا 

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

وحاولت كثيرا فك حمايتها وكثيرين غيرى إلا أنه كان بلا فائدة 

والغريب أن تلك الملفات بعد أن يتم تسطيبها يمكنك أخذ النسخة الظاهرة على سطح المكتب ونقلها لجهاز آخر

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

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

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

وتوجد نسخة من هذا البرنامج مشابهه له تسمى xcel متوفر منها نسخ تجريبية لمده 30 يوم ولكنه ليس بكفاءة هذا البرنامج

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

اقتباس

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

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

ما هو اسم هذا البرنامج؟

ما رأيك في فكرة أن نقوم بالمساهمة جميعاً وشراء نسخة من البرنامج واستخدامها ..أم يمتلكها بعض الأشخاص ويساعد هؤلاء الأشخاص من يريدون حماية ملفاتهم ...مجرد فكرة

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

4 ساعات مضت, cat101 said:

جزاك الله خيرا .. وبارك فيك

اخي المحترم اريد برنامج يفك الملفات المحميه  الاكواد

جزاك الله خيرا .. وبارك فيك

اخي المحترم اريد برنامج يفك الملفات المحميه  الاكواد

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

تفضل أخي الكريم 

من هنا

وهذا رابط آخر لبرنامج آخر

من هنا

 

لكيفية التحميل من على موقع الرفع شاهد الفيديو التالي
من هنا

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

أخى الحبيب وأستاذى الكبير / ياسر خليل

البرنامج ثمنه ( 300دولار ) بخلاف الشحن 

النسخة التجريبية لمدة 30 يوم غير مفعله بالكامل تتيح لك بعض الخصائص وهذا من عيوب النسخة التجريبية وكذلك لا يقوم بعمل setup

يجب ان يكون البرنامج مصمم بالأكواد بكامل الخصائص 

يتيح لك إضافة صورة للبرنامج 

وهذا رابط الموقع 

موقع البرنامج به النسخة التجريبية والنسخة التى يتم شراؤها

وهناك بعض المواقع الإلكترونية التى تقوم بتحويل الملفات الى تنفيذية ولكنها تتطلب ويندوز معين وإصدارات معينه

 

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

أخي الكريم

أنا رافع كل ملفاتي على هذا الموقع ، صحيح فيه ربح ، ولكنه زهيد جداً .. وحاول تقدر المجهود المبذول في مقابل الوقت الذي أقضيه لخدمة إخواني بدون مقابل

الأمر لن يستغرق منك سوى دقيقة أو دقيقتين ويوجد فيديو في المشاركة السابقة لكيفية التحميل ، لأيسر الأمر عليك

تقبل تحياتي

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

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

شرفنا وأسعدنا مرور حضراتكم على موضوعاتي المتواضعة ولو كنت أعلم أن الأستاذ ياسر سيمر علينا لفرشت الحساب ورد أما بعد:

الحقيقة أنا لم أرد الكتابة في أكثر من موضوع ولكن وجدت للإخوة بعض الاستفسارات والتي لم أستطع الرد عليها حيث أن التعليق كان لفريق الموقع ففكرت بفتح موضوع جديد أشرح فية إستفسارات الزملاء بطريقة حاولت أن تكون بسيطة، قابلتين مشكلات أهما أن الكود يظهر بتنسيق عربي ومن اليمين وثانيهما أنى أعاني من رفع ما أريد حتى أني أحاول فتح المحرر لكتابة تعليق (رد) فى موضوعي فهل من مساعد؟!!!

سأكمل إن شاء الله في المرة القادمة

ومرة ثانية وثالثة أشكركم على المتابعة والتشجيع

تم تعديل بواسطه رؤوف1951
  • Like 1
رابط هذا التعليق
شارك

حاول تجرب متصفح آخر لربما تكون المشكلة في المتصفح

كلنا ندرج مشاركات بشكل عادي ولا مشكلة تواجهنا في ذلك الأمر ..

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

Untitled.png

تقبل تحياتي

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

تحياتى و لاثراء الموضوع مرفق رابط للموضوعات المرتبطة 


تجميعية شاشة دخول_صلاحيات_PASS WORD_اخفاء معادلات

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

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

 

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

 أنى أعاني من رفع ما أريد حتى أني أحاول فتح المحرر لكتابة تعليق (رد) فى موضوعي فهل من مساعد؟!!!

 وانت فاتح الصفحه الخاصه بمنتدى اوفيسنا

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

لف العجله ( البكره ) لاسفل

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information