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

مجرد فكرة لمواجهة كسر باسوورد vba


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

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

في الملف المرفق

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

إخفاء محرر الاكواد

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

اذاً وبمنطق الباحثين عن الحماية الفكرية

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

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

والذي اسال المولى عز وجل ان يكون في احسن حال

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

 

وهذا رابط الملف للعلامة أستاذ / خبور

 

 

http://www.officena.net/ib/index.php?showtopic=42107

وسبحان الله العظيم انا سالت نفس السؤال في المشاركة رقم 61

ولكن لم نكن قد توصلنا لتعطيل محرر الاكواد نفسه في ديسمبر 2012 م

فاذا كان بالإمكان دمج هذا الكود مع الكود المرفق في الملف

 

اعتقد بذلك نكون قد منعنا دخول اى مستخدم الى محرر الاكواد

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

تحياتي

CHANGE3.rar

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

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

تحياتي أستاذ ابراهيم

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

Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

او من محرر الاكواد  Prefernces

راجع الصوة

407913577.png

وهذا الكود مطبق على اوفيس 2007 وليس 2003

والملف يعمل عندي بشكل سليم

والله اعلم

تقبل تحياتي

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

اساتذتى الافاضل فى المنتدى

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

ويكون ابداع جديد فى جامعه اوفيسنا

هذه محاوله بسيطه منى فى محاوله منع كسر حمايه VBA  (يعنى محاولة تلميذ)

اتمنى ان تكون نقطه انطلاقه للابداع منكم فى هذا الموضوع 

مرفق ملف باسورد vba  هو 111

بعد فتح vba يقوم الاكسيل بغلق البرنامج 

اتمنى التجربه منكم 

المشكله هى فى حاله تعطيل الماكرو سوف يكون بالامكان الوصول الى فتح vba سوء بالباسورد 111 او ببرنامج كسر حمايه  (انا حاليا بعمل على فى حال تعطيل الماكرو أيضا يقوم الاكسيل بغلق البرنامج )

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

منتظر ابداعاتكم 

تقبل تحياتى

PROTECTT VBA.zip

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

استاذى الحبيب هانى

اسف لحضرتك والله ما شفت الرابط ده الا دلوقتى

http://www.officena.net/ib/index.php?showtopic=60632

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

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

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

عزيزي الفاضل الأستاذ صقر

الحمد لله انني ساكون من أوائل المعلقين على مجهودك المحمود

ولي عتاب بسيط

وخد بالك انا بضحك وانا بكتب ومش هبطل ضحك

يعني مش لازم تمسك لي على الكلمة وتذكرني بمقولة ( ندفن رؤوسنا في الرمال )

تحياتي لك وعلشان أؤكد لك ان عدونا المشترك واحد

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

وده رابط الموضوع

http://www.officena.net/ib/index.php?showtopic=60632#entry389805

 

تحياتي لك ولكل من معنا في المنتدى

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

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

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

وأتمنى من الله ان نتبارى دائما في فعل الخيرات

تحياتي

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

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

بصراحة ملف تحفة سلمت يداك

وفعلاً همنا الأكبر دلوقتي هو في حالة تعطيل الماكرو

واؤيدك تماما في ضم الموضوعبن سوياً

تحياتي

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

استاذى الحبيب هانى

لو عايز تفتح vba بدون ما يغلق الملف  انا عامل خيار بالكود لو الخليه A1  بشيت 3= 1   لا يتم اغلاق الملف

يعنى ادخل على شيت 3 واكتب رقم 1 فى الخليه A1  ودا طبعا بمثابه باسورد تاكيد انك صاحب الملف لو انك مش صاحب الملف مش هتعرف ايه الخلية اللى هيتكتب بها ولا هتكتب ايه فيها قبل الذهاب الى فتح  vba

وبعدها افتح vba وخد راحتك فى الاضافه او الحذف مش هيغلق الملف

تقبل تحياتى

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

 أخى الصقر             أخى هانى

 

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

 

أشكركما أولا على الروح الجميلة

ثانيا أحييكما على الرغبة فى  الابداع والمحاولة .

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

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

هذا ليس لكبح جماح رغبتكم فى زيادة الحماية وانما توفيرا لوقتكم  وجهدكم .

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

قلنا طالما صاحب الملف عمل حماية فلا نكسر الحماية إلا بإذنه فهذا حقه الفكرى

وقلنا أن منتدانا تعليمىً فلما نضع الحماية على الملفات التعليمية طالما هى تعليمية .

اخوانى كله بيتدمر  كله بيتكسر

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

:yes:  :yes:  :yes: 

تقبلا رأيى المتواضع وتحياتى لكما

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

استاذ مختار

اولا شكرا لحضرتك على مشاركتك لهذا الموضوع

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

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

خلينا نحاول ويكفينا شرف المحاوله  :yes:  وما أوتيتم من العلم الا قليلا 

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

ليــــــــــــــــــــــــــــــــــــــــــــــــه تبطل اكسل أخى الصقر  وده كلام ياراجل !!!!!!!!!!!!

 

الاختلاف لا يفسد للود قضية  بدون زعل يا صاحبى أؤكد لك أن حماية ملف الاكسل = صفر الا اذا تحول الملف الى ملف تنفيذى

اذا كانت مايكروسوفت وناسا ووزارات الدفاع وعلى رأسها الأمريكية والبنوك الدولية .....................تخترق ؟!!!!!!!!

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

يبقى ملف صغير هيقف أمامنا  يا صاحبى  الابداع أغلبه الآن فى الكسر والتعدى على حقوق الملكية الفكرية .

 

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

أخوك مختار

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

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

عزيزي أستاذ مختار

اذا كانت مايكروسوفت وناسا ووزارات الدفاع وعلى رأسها الأمريكية والبنوك الدولية .....................تخترق ؟!!!!!!!!

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

وكما قال عزيزي الأستاذ الصقر

خلينا نحاول ويكفينا شرف المحاوله   وما أوتيتم من العلم الا قليلا

تحياتي

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

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

بخصوص الملف الخاص باغلاق محرر الاكواد

اذا كنت تستخدم ويندوز 64 بت

استبدل هذا الكود بالسطر الأول من الموديول

 

 Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As LongLong

تحياتي

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

 

 أخى الصقر             أخى هانى

 

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

 

أشكركما أولا على الروح الجميلة

ثانيا أحييكما على الرغبة فى  الابداع والمحاولة .

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

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

هذا ليس لكبح جماح رغبتكم فى زيادة الحماية وانما توفيرا لوقتكم  وجهدكم .

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

قلنا طالما صاحب الملف عمل حماية فلا نكسر الحماية إلا بإذنه فهذا حقه الفكرى

وقلنا أن منتدانا تعليمىً فلما نضع الحماية على الملفات التعليمية طالما هى تعليمية .

اخوانى كله بيتدمر  كله بيتكسر

 

تقبلا رأيى المتواضع وتحياتى لكما

 

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

نريد التعديل على كود موجود في المشاركة ال 19

http://www.officena.net/ib/index.php?showtopic=59025&hl=

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

  • 6 months later...

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