حذف جميع المديولات في حالة كسر كلمة المرور

[محمد الزريعي]

السلام عليكم 

الاخوة الكرام  ، مرفق لكم ملف ، فيه جزئية مفقودة ، وهي 

1- تحسس كلمة المرور اذا تم فتح التطبيق بطريقة غير شرعية ومن جهة غير معروفة ، يقوم بحذف جميع  المديولات . 

2- علما ان الباسورد لهذا الملف هو الرقم 1

 

 

حذف جميع الموديولات.xlsm

[محمد الزريعي]

مافي اي جواب على الموضوع ؟🙂

[محمد هشام.]

1) هل تقصد باسوورد محرر الاكواد او باسوورد الدخول للملف 

الطريقة التي سميتها بغير الشرعية يجب تحديدها اولا

 

 

تم تعديل أكتوبر 27, 2023 بواسطه محمد هشام.

[محمد الزريعي]

باسورد محرر الاكواد 

اوضح الصورة اكثر : انا عندي كذا مديول تعبت في عملهم ، سويت حماية للاكواد بحيث محد يقدر يدخل يعدل في الاكواد . لكن هذه الحماية ممكن كسرها . 

لذا قررت اعمل لها كود في حال كسر كلمة المرور واصبح محرر الاكواد مفتوحا ، يقوم البرنامج بمسح جميع المديولات وعمل حفظ للملف واغلاقه  ماعدا المديول رقم 1

عندها اي واحد يكسر الحماية ، راح يفتح الملف و ماراح يجد المديولات غير المديول رقم 1

 

اي زي القنبلة الموقوته 

تم تعديل أكتوبر 28, 2023 بواسطه محمد الزريعي

[ميدو63]

الاخ الفاضل

هذا الكود وجدتة ممكن تجربة وتفدنا اذا كان يلبى الغرض ام لا

 

 

Sub UnlockVBAPassword()
    Dim VBProj As Object
    Dim VBComp As Object
    Dim CodeMod As Object
    Dim FileName As String
    
    ' تحديد اسم الملف
    FileName = ThisWorkbook.FullName
    
    ' فتح محرر الأكواد
    Set VBProj = ThisWorkbook.VBProject
    
    ' إلغاء قفل محرر الأكواد بإدخال كلمة المرور الصحيحة
    VBProj.VBE.CommandBars("Menu Bar").Controls("Tools").Controls("VBAProject Properties...").Execute
    
    ' حذف جميع الموديولات
    For Each VBComp In VBProj.VBComponents
        If VBComp.Type = 1 Then
            VBProj.VBComponents.Remove VBComp
        End If
    Next VBComp
    
    ' حفظ وإغلاق الملف
    ThisWorkbook.Save
    ThisWorkbook.Close
    
    ' إعادة فتح الملف بدون كلمة مرور
    Workbooks.Open FileName:=FileName, Password:=""
End Sub

يرجى ملاحظة أن استخدام هذا الكود يعتبر اختراقًا لحماية ملف VBA وقد يكون غير قانوني في بعض الحالات.

[محمدي عبد السميع]

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

بتقول انت تعبت في عمل الاكواد 

ومش عايز واحد ياخد اي كود

طيب ممكن تكتب كود واحد من تصميمك هنا 

ولا تم اخد الاكواد من المنتديات وتطويعها لك وخايف حد يشوف انك اخدتها منهم ... مجرد سؤال

عايزين العلم ينتشر

الله يرحم والديك ووالدينا

 

[محمد الزريعي]

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

ثانياً : الاخ محمد عبدالسميع . (انا اقصد بانني سويت اكواد ) هي اكواد  عادية وعمليات حسابية داخل ملف  ، وهذه العمليات الحسابية تخص منتجات التمويل . فلا نريد ان يتسرب هذا الملف يستخدمة كثير من الموظفين الخاصين بالشركة ، فأذا قام احد الموظفين بفك هذا الملف يقوم الملف بمسح العمليات الحسابية فقط ويرجع اكسل عادي . 

 

على سبيل مثال : 

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

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

[حسونة حسين]

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

اعتقد ان طلبك ليس له حل 

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

[محمد الزريعي]

مشكور : حسونة حسين على مشاركتك