omar elhosseini

عليكم السلام ورحمة الله وبركاتة لعل وعسى هذا الكود يكون مفيد مثال بالمرفقات Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 7 And Target = "" Then Target = 0 End Sub Test_01.rar

بارك الله فيك اخ احمد همة ونشاط

بالمرفقات Excel 12 MyBasicExcel_12.rar

الاخ elassy2020 الى ان ان اجهز لك ملف Excel 12 ارجو تجربة الطريقة التى اخبرنا بها اخونا almaistro والمشالر اليها فى المشاركات رقم 6 و 10 و 12 واخبارنا بالنتيجة فقد تنجح طريقتة الى ان اجهز لك الملف

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

شاهد المرفق اخى Test_1.rar

اخونا أبو أسامة مشغول بأمر ما فأدعو له بالتوفيق والسداد شاهد المرفق نيابة عن اخونا أبو أسامة ___________________________.rar

شاهد المرفق اخى _____________________2.rar

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

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

الاخ dahy2020 اليك طريقة اخرى ربما تناسبك _________________.rar

شكرا لكل من الاخوة الاخ BU3MMAR الاخ مزلزل الاخ stiffmillr الاخ justice الاخ خبور خير الاخ h63 شكرا لجميع الاخوة جزاكم الله كل خير

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

السلام عليكم ورحمة الله وبركاتة يلجأ بعضنا الى استخدام سيريال نمبر احد برتشنات الهارد ديسك ( دريف سى مثلا ) لعمل مشروع الحماية لعدم استطاعة الاكسيل استخلاص السريال نمبر الخاص بالهارد ديسك بدون مساعدة خارجية من نظام التشغيل والسريال نمبر الخاص بأجزاء الهارد ديسك هو رقم يتغير عند عمل فورمات للدريف المبنى عليها مشروع الحماية او يمكن تغيره بأحد البرامج الخاصة بذلك وهذه نقطة تأخذ على المبرمج ولا تحسب له من قبل العميل ولذلك للحصول على سريال نمبر الهارد ديسك لابد من طلب المساعدة من نظام التشغيل ( الويندوز ) وتتمثل هذه المساعدة الخارجية فى عمل برنامج صغير يخاطب نظام التشغيل ليسمح للإكسيل بالحصول على هذا المسلسل وهذا البرنامج الصغير يكون محاكيا لمكتبات الويندوز العاملة تحت مظلتها حتى يستطيع نظام التشغيل او الويندوز التعرف عليه بسهوله وبدون اجراءات اخرى و يكون نوع هذا البرنامج هو DLL كمكتبات الويندوز العاملة ويتم وضع هذا البرنامج فى فلدر system32 الخاص بالويندوز اى يتم وضع هذا البرنامج ذو النهاية DLL فى مسار دريف الويندوز اى فى المسار التالى :: WINDOWS\system32 وفى حالة تقديم البرنامج بعد عمل الحماية الازمة الى احد العملاء يتم زرع هذا الملف ( DLL ) المساعد عن طريق عمل برنامج تركيب كالبرامج الجاهزة ويحدد له المسار المشار اليه سابقا طريقة استخراج سريال نمبر الهارد ديسك :: بالمرفقات ملفات الملف الاول هو :: DiskSerial.dll يتم نسخ هذا الملف الى فلدر system32 فى مسار الويندوز اى فى المسار التالى :: C:\WINDOWS\system32 طبعا هذا المسار اذا كانت الويندوز تعمل من الدرايف سى اما اذا كانت خلاف ذلك يتم تغير رمز الدرايف الى المناظر له الملف الثانى هو :: Omar_1.xls ملف الاكسيل الذى يستخرج السريال بمساعدة الملف الاول اضعط على الزر فيستخرج سريال نمبر الهارد ديسك اتمنى من الله ان اكون وفقت فى شرح الفكرة Omar.rar

شكرا لكل من الاخوة الاخ إكسيلجي الاخ الجزيرة الاخ DIAA125 الاخ احمد يعقوب الاخ elmgd5 جزاكم الله كل خير

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

الاخ aah_aah2008 شكرا لك اخى الاخ خبور خير لا بأس اخى وشكرا لك جزاكم الله كل خير

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

الاخ الفاينل اليك اخى الاسلوب الامثل لهذه الحالة مع الشرح ومثال بالمرفقات والمثال الورقة الاولى عن خلية واحدة كمثال والورقة الثانية تطبيق المثال على مدى محدد معلومة عامة :: اولا يجب ان يكون الكود فى حدث تغير خلايا الورقة وليس فى حدث اختيار خلايا الورقة Private Sub Worksheet_Change(ByVal Target As Range) 10 Application.EnableEvents = False 20 If Target.Address = "$A$1" Then [B1] = [B1] + [A1] 30 [A1] = "" 40 Application.EnableEvents = True End Sub End Sub شرح الكود المستخدم :: السطرين رقمى 10 و 40 هما لمنع اهتزاز الشاشة عند عملية الكتابة والمسح للخلية A1 لأننا نتعامل مع حدث التغير فى احد خلايا الورقة والا استمر وميض الشاشة الى مالانهاية 20 If Target.Address = "$A$1" الجزء الاول من السطر رقم 20 يقول اذا كانت الخليه المستهدفة هى A1 نفذ ما يأتى بعد ذلك وبصورة اخرى يعنى لا تنفذ هذا الكود الا اذا تم تغير فى الخلية A1 Then [B1] = [B1] + [A1] الجزء الثانى من السطر رقم 20 يضع فى الخلية B1 مجموع الخلية B1 السابق مضافا اليه قيمة الخلية A1 30 [A1] = "" السطر رقم 30 يقوم بتفريغ الخلية A1 بعد تحقق الشرط وعملية الجمع فى السطر رقم 20 شاهد المرفق Test_1.rar

الاخ هادى سالم شكرا لك وجزاك الله كل خير

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

الاخوة الاخ ابو سليم شكرا لك اخى الاخ نزار سليمان عيد شكرا لك اخى نزار على هذا الكارت الجميل وعلى متابعتك لنا الاخ justice شكرا لك اخى يحيي على متابعة سؤالك عنا الاخ h63 شكرا لك اخى هشام على متابعة سؤالك عنا الاخ خبيب الريم شكرا لك اخى على كلماتك الجميله جزاكم الله كل خير اراكم غدا إن شاء الله بخير

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

بسم الله الرحمن الرحيم الاخوة اعزاء الاخ aah_aah2008 الاخ هشام شلبى الاخ asdhamdey الاخ يحيى حسين الاخ عبدالقادر غموزي جزاكم الله كل خير اخوانى الاعزاء وشكرا خاص لإخى ابو اسامة العينبوسي لما قام به من مجهود خاص معنا فله منا كل الشكر و الاحترام جزاه الله كل خير وجعله فى ميزان حسناته خالصا لوجة الله الكريم واشكر اخى هشام شلبى على متابعته المستمرة لنا وايضا اخى Justice جزاهم الله كل خير واشكرا جميع الاخوة الاعزاء فى منتدنا اوفيسنا

شكرا لك اخى aah_aah2008 الحمد لله الان افضل بكثير وهذا من فضل ربى علينا والحمد له والشكر له