وكيفية حماية ملفك او برنامجك من السرقة او النقل من الجهاز من خلال دالة عجيبة وسهلة جدا
كيف يمكن حماية ملف اكسيل عن طريق :
1- وضع كود يبدأ عمله فور فتح الملف لأول مرة الهدف منه استخراج الـ serial no لأى من Motherboard أو hard disk 2- يقوم الكود بتخزين هذا الرقم بـ Cell معينة بـ sheet منفصلة . 3- فى كل مرة يفتح فيها الملف يقوم الكود باستخراج الـ serial no ومقارنته بما هو مسجل من قبل . - اذا ما كان الرقمين متطابقين يستكمل فتح البرنامج. - اذا ما كان الرقمين غير متطابقين كان ذلك دليلا على نسخ البرنامج بطريقة غير مشروعة ومن ثم ايقاف عمل الملف
هل ممكن نعمل الكلام المعقد دة احنا هنشتغل بطريقة سهلة وبسيطة جدا من خلال دوال الاكسل نفسة حتى لاتتعارض مع نسخ الاوفيس المختلفة
احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى
جزاك الله كل خير استاذ عماد ورحم الله والديك
طبعاً بعد اذن استاذ عماد , هذا هو الكود المستخدم استاذ ياسر فى حدث Thisworkbook ومعه ملف الإستخدام للتطبيق
Private Sub Workbook_Open()
With Sheet2.Range("a1")
If .Value = "" Then
.Formula = "=info(""Directory"")"
.Value = .Value
End If
End With
If Sheet2.Range("a1").Value <> Sheet2.Range("b1").Value Then
MsgBox "عفواً تم نقل مسار الملف ولا تستطيع العمل عليه", vbInformation
End If
End Sub
واذا اردت ان يغلق الملف اذا تغير مساره او تم نقله فيمكنك اضافة هذا الجزء فى نهاية هذا الكود
احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى
شكرا جزيلا لكم وعلى جهودكم المبذولة وتقديم المساعده بارك الله فيكم
في حال اردنا نقل الملف والعمل عليه يوميا من حاسبة المكتب الى حاسبه اخرى في المنزل في هذه الحاله لن يفتح الملف هل يوجب طريقه لفتح الملف؟ تحياتي
تم تحرير المشاركة بواسطة :ابو طيبه
بتاريخ:22-06-2020 10:39 صباحا
اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.
This website uses cookies to ensure you get the best experience on our website.
More
هذا الموقع يستخدم ملفات تعريف الارتباط لضمان الحصول على أفضل تجربة على موقعنا.
المزيد موافق Agree