اهلا بك يا استاذ حسونا 

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

و اتاكد من كدة انة بيظهر في ال VBA 

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

و الكود اشتغل 

الغرض من الكود هو التحقق من القيمة و المصنف مغلق لكي لا يعمل اكواد الملف الثاني 

و الغرض الاساسي هو بعدم تغيير الملفات بملفات مزيفة يحمل نفس اسم الملف 

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

عشان في ناس ممكن يحطوا ملفات بنفس الاسم و يفتح مصنفات مزيفة ودة كان الغرض 

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

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

 
 

 
 
The value of the interest from the value of the amount

 
 
 

 

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

فعلا عشان الواحد يتعلم لازم وقت فراغ انا بالعافية عشان اشتغل لازم ايام الاجازة 

بس عشان الموضوع دة اتحمست فية شوية بقيت اشتغل فية كل يوم بعد الشغل 

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

المهم انا عملت ملفين اكسيل و محميين حماية خارجية  ملف 1 يفتح ملف 2 عن طريق ملف تنفيذي 

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

انا سبت التبيوبات موجودة في الملف رقم 2 و سبت الحماية الداخلية غير مفعلة معادا حماية البرمجة  و حماية الشير سبتهم ممكن يكون في ثغرة مفتوحة 
 و انا وضعت رقم في ملف 2 في البرمجة نفسها  في Module1 مش في الشيتات لو حد قدر يوصل للجملة دي يبقا المشروع اخترق 
 بمعنى انة قدر يوصل لكلمة المرور الملف الاول 
 باسورد فك الضغط : 123a

 انا نجحت في فتح مصنف محمي في نفس المسار بلغة vb.net

wb = excel.Workbooks.Open(Application.StartupPath & "\3k.xlsx", Password:="456")

 انا فعلا بدأت اجرب لغات برمجة اخرى و اخترت vb.net

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

و هبتدي اتعلم ال vb.net و كمان اعرف في ال vba اكسيل ان شاء الله الواحد يعرف يطلع مشروعات كويسة من اللغتين المدمجين مع بعض 

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

بس سوال لو خرجت مشروع  بلغة vb.net ملف تنفيذي هل سيكون محمي ؟!!! يعني هيكون ملف متشفر 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Process.Start("C:UsersPC1DesktopNew folder (9)kk.xlsx")

        Dim excel As Microsoft.Office.Interop.Excel.Application

        Dim wb As Microsoft.Office.Interop.Excel.Workbook

        Dim ws As Microsoft.Office.Interop.Excel.Worksheet

        excel = New Microsoft.Office.Interop.Excel.Application 'create the instance of excel work book'



        wb = excel.Workbooks.Open("C:UsersPC1DesktopNew folder (9)4k.xlsx", Password:="456") 'Open the excel the file

        excel.Visible = True

    End Sub

 
طب  انا فعلا  جربت ال  saveas f12  وجبت جنرال اوبشن و معرفتش اشيل الباسورد القديم , ازاي قدرت تشيل الباسورد الاساسي  ولا في طرق تانية انا عندي شكل مجمد معرفش امسح القديم 
 ولا حماية الشير في النسخ القديمة مش نافعة 
 عمتا انا جربت  فتح الملف بطريقة سهلة جدا و هى ان اسامي الماكرو ظهرة و سهل تشغيلها انا سايب اكواد ماكرو فك الحماية 
 حضرتك بتستخدم اوفيس 2016 فما فوق ؟
 لو الاجابة صح يبقا نظام حماية الشير في النسخ القديمة 2010 مش نافعة 
 وممكن اسطب نسخة حديثة و احمي الملف بيها 
طب لو حفظت المصنف بصيغة xla اظن دي طريقة لوقف زر f12 ومش يقدر يحفظ بأسم و نحط الاكواد في الفتح 

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

انا هستمر في الموضوع دة لاحد ما الطريقة الحماية تنجح 
 
 
 
Medicine, I actually tried the saveas f12, I had a general option, and I knew the old password, how could I activate the basic password or in other ways? I have a frozen form that I don't know, delete the old
 
 
 

 و ايضاً اذا تم وقف وحدات الماكرو لم ستطيع تنفيذ الكود لفتح باقي المصنفات 

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

وانا قمت بتجربة اختراق الملف بعدة طرق مختلفة 

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

ثاني طريقة عن طريق برنامج يقوم بفك اي باسورد داخل المصنف لاكن شرط يكون المصنف غير محمي حماية خارجية  و اسم البرنامج Reset VBA Password و برنامج Excel.Permissions.Password.Remover البرامج دي تعاملها سهل جداا في فك الحماية و الغرض منها لو حد نسي الباسورد 

الطريقة الثالثة عن طريق برمجة vba و اليكم الكود 

Sub Remove_protection()



Application.DisplayAlerts = False



Dim Wkb As Workbook

Set Wkb = Workbooks.Open("C:\Users\????\Desktop\????\1.xlsm", , , , "DEiwkfdmlsjhdheksjdhgfj*985233555425560005505505*sdfdsfsxzWERSDFFGDHTF/d6f54g86df89fd7g*65")

Wkb.WritePassword = ""

Wkb.Password = ""

Wkb.Save

Wkb.Close



Application.DisplayAlerts = True



End Sub

 

ممكن اي حد يغير  مسار الملف 

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

ممكن يكون في طريقة 

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

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

بس مين عارف الطريقة  

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

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

و رابط الموضوع : 
 
 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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

انا هدفي  بناء مشروع حماية 

انا شغال في حماية اي مشروع اكسيل 

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

فأنا حاليا  بسعى في تأمين المصنف بأي طريقة 

و فضلي اخر خطوة و هى فك ملف مضغوط محمي

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

انا فكرت اني اعمل تأمين للمشروع بعدة ملفات اكسيل 

اول ملف هيكون فاضي و محمي  بكلمة سر من الخارج و محمي ايضاً بحماية الشير عشان محدش يقدر يغير الباسورد يفضل ثابت حتى لو اتعمل حفظ بأسم محدش هيعرف يغير الباسورد ابدا و كمان عملت الغاء لكل تبويبات الملف حماية زائدة يعني تفتح الملف عبارة عن خلايا فقط وكمان محمية من اي تعديل .

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

طب لو في مفتاح و حد قدر يعرف مكان المفتاح دة مكانة في  ال C نسخة وكدة  , طبعاً مش هينجح في فتح المشروع عشان عامل كود تنفيذي يعمل مقارنة برقم الماذر بورد لو مش مطابق يقفل كل المصنفات و طبعا الملف الي فية الاكواد دي ملف محمي بس واجهني مشكلة لو عملت حماية الشير عن طريق كود الملف مش بيتحفظ اصلا و الحماية بتتفك فعملت حل بديل انة يعمل حفظ بأسم بأسم مختلف عشان الحماية تتحفظ ,

وبعدها فكرت اني لازم اعمل ملف ثالث و دة هيكون قلب الحماية 

ملف رقم 2 قبل ما يقفل يحفظ نفسة بأسم مختلف ثم يفتح ملف رقم 3 و يقفل و يجي دور ملف رقم 3 انة يحذف الملف رقم 2 و يغير المسمى للملف الي تم حفظة بأسم للمسمى الاصلي ثم يفتح المشروع الاساسي .

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

يعني ملف رقم 3 هينفذ الخطوات دي و يمسح نفسة في الاخر و يتم استرجاعة عن طريق ملف مضغوط محمي و طبعاً  هيتم التشييك على الملف دة في اول ملف رقم 1  قبل اي خطوات زي ما ذكرت في الاول الملف المضغوط هيتفك و يتم التشييك على قيمة معينة و المصنف مغلق عشان لو اتفتح هيتم تنفيذ الخطوات لفتح المشروع , لا  لو القيمة غير متطابقة يقفل اي مصنف مفتوح 

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

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

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

ودة يحميني من الاختراق لفتح سورس المصنف و ازالة باسورد ال vba ومعرفة باقي باسوردات المصنفات الاخرى 

ودة هدفي بمشي وحدة وحدة لحد ما يتم حماية  المشروع و اصلا هو اصعب شيئ حماية اي مشروع 

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

وديما بلجأ ليكم اني محتاج مساعدتكم 

و ان شاء الله لو حماية المصنفات دي تمت ونجحت هيتم توثيق مشروع الحماية دي عشان الناس تستفاد 

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

 و عليكم السلام 

الكود يفك ملفات الضغط الغير محمية بكلمة سر 

جربت الكود في ملف مضغوط محمي و طلب مني كلمة السر و اكتبها يدوياً

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

 اشكرك جدا بارك الله فيك 

الكود  جيد جدا 

 
ولاكن يمكن للمستخدم اضافة شيت و تغيير اسم الشيت 

و جربت الكود قام بحماية المشاركة فقط

اريد حماية المصنف و المشاركة  لكي لا يستطيع المستخدم من حذف او تغير اسم الشيت او اضافة شيت 

اما حماية المشاركة يجبر المستخدم بعدم تغيير باسورد الحماية الخارجي  

سوف اقوم برفع ملف 

و باسورد الملف 123

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