hsa100

اخى العزيز ابو تامر

يشرفنى اهتمامكم بهذا الموضوع ويسعدنى قبولكم لتنفيذ ما اقترحتموه .. والمثال مرفق فى المشاركة رقم 1 ويوجد استفسار آخر .. هل يمكن تنفيذ ما سبق كالتالى (070109) تصبح (09/01/2007)

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

UP

up

اخى العزيز كريم

اقدر لك اهتمامك .. لكن المطلوب هو بعد ان يتم كتابة التاريخ كرقم بدون فاصل هكذا 200719 وبعد الانتقال من الخلية سواء بالضغط على مفتاح Enter أو Tab يتم تحويله للشكل التقليدى 09/01/2007

وشكرا لكم

اخوانى الاعزاء

يرجى معاونتى فى كتابة التاريخ فى خلية كارقام متتالية فقط ودون الفاصل التقليدى ( / ) على ان يتم تحويلها الى الشكل التقليدى بعد الضغط على مفتاح Enter أو Tab

مرفق مثال

وشكرا لكم

example1.rar

اخى العزيز هادى سالم

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

وشكرا لكم اهتمامكم.

اخى العزيز هادى سالم

حقيقة لا اعرف كيف اوفيك حقك من الشكر على الفكرة الرائعة لمعالجة هذا الموضوع

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

وشكرا لكم وجزاك الله خيرا .

example_2.rar

up

اخوانى الاعزاء - الاخوة المشرفين

يبدو انه قد حدث لبس نتيجة خطأ من جانبى

ارجو تصحيح هذه العبارة ( وعند اضافة حرف آخر وليكن "ا" لتصبح "ما ")

لتصبح هكذا

وعند اضافة حروف أخرى وليكن "او" لتصبح "ماو "

اعتذر عن هذا الخطأ

والملف مرفق مرة اخرى على صحة

example1.rar

السلام عليكم

ارغب عند كتابة اول حرف وليكن "م" من اسم الصنف تظهر قائمة منسدلة بها كل الاصناف التى تبدأ بهذا الحرف (ماوس ، ماذر بورد)

وعند اضافة حرف آخر وليكن "ا" لتصبح "ما "

يبقى صنف واحد فقط بالقائمة المنسدلة وهو ماوس

ثم اختيار الصنف ليتم تسجيله فى الخلية E5

وكذلك كود الصنف الذى تم اختياره من القائمة المنسدلة فى الخلية D5

مرفق مثال

example1.rar

Private Sub Worksheet_Change(ByVal Target As Range)
TA = Target.Address
If [A6] <> "" And TA = "$B$6" Or TA = "$C$6" Then
With ورقة2.Columns(1).Rows(65536).End(xlUp)
            .Offset(1, 0) = ورقة1.[A6]
            .Offset(1, 1) = ورقة1.[B6]
            .Offset(1, 2) = ورقة1.[C6]
End With
    [A6:C6].ClearContents
 End If
End Sub

اخى الكريم على السحيب

بصراحة .. اكثر من رائع

لكنى اريد ان افهم ما دور كل دالة فى هذا الكود.

بالاضافة الى اننى اريد اسماء بعض المواقع التى يمكن ان اجد فيها جميع الدوال الخاصة بالـ vba

هذا اذا لم اثقل عليك .. واشكر لكم اهتمامكم .. بارك الله فيكم.

اخى الكريم علي السحيب

كل عام وانتم بخير .. اشكر لك اهتمامك ومرفق لكم مثال يعبر عن المشكلة

حقيقة كنت اقصد كتابة الصيغة فى الخلية ..

لكن اخى الكريم لو تكرمت بعرض الفكرتين للاستفادة اكون ممتن لكم كثيرا.. و بارك الله فيك .

example1.rar

اخوانى الاعزاء

كيف يمكن كتابة معادلة فى خلية معينة بواسطة الكود.

واشكر لكم اهتمامكم.

اخوانى الكرام

كنت اتمنى عرض الموضوع مشمولا بالصور لكنى للأسف لا اعرف كيفية رفع صور للمنتدى .. فمن منكم يساعدنى فى ذلك له شكرى العميق.

عموما

1- افتح ملفى اكسل : الأول الملف المرفق الأخير والثانى الملف الخاص ببرنامج الكنترول الخاص بك.

2- اضغط على مفتاحى ALT+F11 بالمثال الأخير المرفق

3- قم بنسخ الكود المكتوب فى thisworkbook الى نفس المكان بالملف الخاص بك.

4- مع ملاحظة ضبط اسماء الـ Sheets بالكود لتتوافق مع اسمائها بالملف الخاص بك.

5- يمكن ايضا التعديل فى الكود بما يتوافق مع مشروعكم .

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

مقارنة بسيطة :

عدد من قام بتنزيل مثال الحماية 33 فقط

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

س : كيف يستشعر هذا الكود بأن مستوى الامان غير منخفض فبقوم بأخفاء ورقة ؟

- فأنت تضع فى الخلية "a1"  صفر عند الاغلاق وتقوم بأخفاء الورقة "s1"

- وعند الفتح تضع فى الخلية "a1" القيمة 1 وتقوم بأختبارها فأذا كانت =1 تظهر الورقة واذا كانت غير ذلك تخفى الورقة فكيف يخفى الورقه وانت تضع عند الفتح القيمة 1 هل يكمن ذلك فى "On Error" ام ماذا .

<{POST_SNAPBACK}>

أخى الكريم

1- يتم وضع صفر عند الاغلاق واخفاء الورقة.

2- و عند اعادة الفتح .. اذا كان مستوى الامان منخفض فلن يقوم كود VBA بالعمل.

3- وبالتالى لن يقوم بوضع القيمة 1 فى a1 وكذلك لن يقوم باظهار الورقة.

4- وسيظل الوضع كما هو عليه وقت الاغلاق .

5- والعكس صحيح .

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

مرفق المرحلة الثانية

التى تستخدم فى البرنامج المباع + تعديل بسيط للبرنامج الأول

بطبيعة الحال سيتم حماية اكواد VBA بالطرق المعتادة .

برجاء محاولة اختراق هذا الحماية

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

two_files.rar

الاخوة الأعزاء

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

مرفق الملف الأول والذى فيه يتم :

1- اجبار المستخدم على خفض مستوى أمان الماكرو

2- استخراج الرقم المسلسل للـ H.D

والذى سيتم استخدامه فى الملف الثانى (البرنامج المباع) لحمايته.

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

برجاء إضافة أفكار جديدة ..

serial_no_of_Hard_Disk.rar

اخى الكريم hs889

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

وأعتقد أنه يمكن أن يكون السيناريو كالتالى:

1- يتم اعطاء المشترى ملف Excel به الصيغة التى تقوم باستخراج الرقم المسلسل لـ H.D

2- يقوم مشترى البرنامج بتشغيل هذا الملف على جهازه الذى سيضع به البرنامج المباع

3- يقوم البرنامج تلقائيا بحفظ الرقم المسلسل بالملف ثم ارجاع هذا الملف لصاحب البرنامج.

4- يقوم المبرمج بوضع هذا الرقم بالبرنامج المباع ثم تسليم المشترى البرنامج وينام قرير العين دون خوف من نسخ البرنامج بصورة غير شرعية .

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

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

السادة مشرفى المنتدى

رجاء الاهتمام بهذا الموضوع .. حيث انه حماية للبرامج ضد النسخ الغير مشروع

يا محترفى الاكسيل .. برجاء المساعدة واكون شاكرا لكم

أو بطريقة اخرى :

كيف يمكن وضع قيمة فى registry تؤدى المطلوب السابق.

وشكرا لكم.

اخوانى الكرام

كيف يمكن حماية ملف اكسيل عن طريق :

1- وضع كود يبدأ عمله فور فتح الملف لأول مرة الهدف منه استخراج الـ serial no لأى من Motherboard أو hard disk

2- يقوم الكود بتخزين هذا الرقم بـ Cell معينة بـ sheet منفصلة .

3- فى كل مرة يفتح فيها الملف يقوم الكود باستخراج الـ serial no ومقارنته بما هو مسجل من قبل .

4- اذا ما كان الرقمين متطابقين يستكمل فتح البرنامج.

5- اذا ما كان الرقمين غير متطابقين كان ذلك دليلا على نسخ البرنامج بطريقة غير مشروعة ومن ثم ايقاف عمل الملف.

و شكرا لكم.