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

تحويل الاكسل الى ملف تنفيذي (EXE)


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

السلام عليكم

ما شاء الله تبارك المنعم ذو الجلال والإكرام

إذا حضر أحد الأطباء الأخصائيين

استبشر المريض بعاجل الشفاء

هديت ووقيت وكفيت أخي أستاذ هادى

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

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

وجدت لدى الاكواد التاليه تعمل على اكسيل 2003 و لم تعمل معى على 2007

لاطفاء مفتاح Save As

Sub File_DisEable()

    CommandBars("Worksheet menu bar").Controls("File").Controls("Save As").Enabled = False

End Sub
و لاعادته مره اخرى
Sub File_Enable()

    CommandBars("Worksheet menu bar").Controls("File").Controls("Save As").Enabled = True

End Sub
و اذا كان الاكسيل بالعربى استبدل "File"ب "ملف" و هكذا و لالغاء عمل مفتاح F2
Sub F12_Disable()

    Application.OnKey "%{F12}", ""

End Sub
و لاعادته مره اخرى
Sub F12_Enable()

    Application.OnKey "%{F12}"

End Sub

السلام عليكم

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

السلام عليكم

ألف شكر أستاذ هادي على التحف الغالية

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

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

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

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

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

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

ثغرات فك كود الملف موجودة دائما وقد تمكنت ببساطة إلى فك الكلمة السرية للملف وفتح كود VBA وتغيير هذه الكودات في ملف book1 الذي أرفقته في رد سابق وهو يعمل عندي بطريقة عادية... وحتى طريقة ملف أوتوبلاي AUTOPLAY وجدت له ثغرة بحيث نستطيع فتح ملف إكسيل منفردا عن البرنامج والقيام بالتغييرات التي نريد(وطبقت ذلك على برنامج الأخ والعضو "خالد القدس" الخاص بـ "برنامج نتيجة جامعية كاملة")...

الظاهر أن طرق حماية ملفات إكسيل لها ثغرات كثيرة ولا يمكن حماية الأكواد... إلى أن نجد طريقة أخرى لذلك...

والله أعلى وأعلم

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

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

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

أستخدم الكود التالى و سيعمل معك ان شاء الله

Sub Disable()

    Application.OnKey "{F12}", "Msg"

End Sub


Sub Msg()

    MsgBox "مفتاح الحفظ لا يعمل"

End Sub

السلام عليكم

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

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

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

يجب وضع الكود داخل اجراء Workbook_Open

مرفق الملف بعد التعديل

السلام عليكم

Book1.rar

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

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

مرفق الملف التنفيذ بعد التعديل كود VBA 55555

Book1.rar

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

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

أخي الكريم إني أتابع الموضوع من بدايته وأود، بعد أن تنتهي من عمل حماية ملفات إكسيل بطريقة تحويله إلى ملف تنفيذي ، أن تضع لنا ملفا جديدا تستعمل فيه كل الحماية التي تراها مناسبة، لأني أريد أن أجرب فيه طريقة لفك هذه الحماية وأحاول أن أرسل إليك هذا الملف دون حماية (إن تمكنت من فك الحماية) وهذا لمعرفة مدى نجاعة الطريقة حتى نعتمدها في حالة عدم كسر هذه الحماية...

أخوك "بن علية"

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

مرفق الملف التنفيذ بعد التعديل كود VBA 55555

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

السلام عليكم

أحبابي الأفاضل الموضوع ذو شجون

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

أرجو أن لا تستطيع فك حمايته

وأظنك أنت أيضا ترجو ذلك

وفقنا الله جميعا إلى خير العمل وأنفع العلم

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

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

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

أخوكم "بن علية"

السلام عليكم

أحبابي الأفاضل الموضوع ذو شجون

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

أرجو أن لا تستطيع فك حمايته

وأظنك أنت أيضا ترجو ذلك

وفقنا الله جميعا إلى خير العمل وأنفع العلم

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

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

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

نعم اخي خالد بقيت مشكلة عند غلق الملف

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

ارجو ان نجد لها حل

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

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