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

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

قام بنشر

السلام عليكم

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

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

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

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

قام بنشر

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

وجدت لدى الاكواد التاليه تعمل على اكسيل 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

السلام عليكم

قام بنشر (معدل)

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

مرفق الملف التنفيذ بعد التعديل كود 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