أكاديمية الصقر للتدريب

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


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





احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى

درس مهم جدا من دورس الاكسل وكيفية حماية ملفك او برنامجك من السرقة او النقل من الجهاز من خلال دالة عجيبة وسهلة جدا كيف ي ..



20-06-2020 10:14 مساء
emad ghazi
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 124
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 4
يتابعهم : 5
يتابعونه : 544
قوة السمعة : 1736
 offline 

درس مهم جدا من دورس الاكسل 

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

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

1- وضع كود يبدأ عمله فور فتح الملف لأول مرة الهدف منه استخراج الـ serial no لأى من Motherboard أو hard disk
2- يقوم الكود بتخزين هذا الرقم بـ Cell معينة بـ sheet منفصلة .
3- فى كل مرة يفتح فيها الملف يقوم الكود باستخراج الـ serial no ومقارنته بما هو مسجل من قبل .
- اذا ما كان الرقمين متطابقين يستكمل فتح البرنامج.
- اذا ما كان الرقمين غير متطابقين كان ذلك دليلا على نسخ البرنامج بطريقة غير مشروعة ومن ثم ايقاف عمل الملف

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

ما هى الدالة العجيبة التى تقوم بهذا الامر

انها الدالة INFO

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

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


لنتعرف اكثر على كيفية عمل الدالة وعمل كود الحماية من خلال شرح الفيديو التالى

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 






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

 


21-06-2020 07:25 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 747
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى

الله ينور يا غالى 121


توقيع :الصقر

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


21-06-2020 08:21 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى
بارك الله فيك أخي الحبيب عماد وجزيت خيراً
ويا ريت ملفات مرفقة في الموضوع لتمام الاستفادة ..
تقبل وافر تقديري واحترامي

21-06-2020 11:50 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى
جزاك الله كل خير استاذ عماد ورحم الله والديك
طبعاً بعد اذن استاذ عماد , هذا هو الكود المستخدم استاذ ياسر فى حدث 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

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

application.Quit

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل.xlsm   تحميل xlsm مرات التحميل :(23)
الحجم :(12.85) KB

توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

21-06-2020 09:12 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى
جزاك الله خيراً أخي العزيز علي ومشكور على المجهود في المساهمة لإفادة الآخرين.

22-06-2020 07:06 صباحا
مشاهدة مشاركة منفردة [5]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif احمى ملفك او برنامجك من السرقة او النقل من خلال الدالة العجيبة الموجودة فى الاكسل مع عماد غازى
شكرا جزيلا لكم وعلى جهودكم المبذولة وتقديم المساعده  بارك الله فيكم 
في حال اردنا نقل الملف والعمل عليه يوميا من حاسبة المكتب الى حاسبه اخرى في المنزل في هذه الحاله لن يفتح الملف هل يوجب طريقه لفتح الملف؟ تحياتي 


تم تحرير المشاركة بواسطة :ابو طيبه
بتاريخ:22-06-2020 10:39 صباحا





الكلمات الدلالية
اكسل ، عماد غازى ، عالم الاوفيس ، حماية الملف من السرقة ، حصريا ، احمى ، ملفك ، برنامجك ، السرقة ، النقل ، خلال ، الدالة ، العجيبة ، الموجودة ، الاكسل ، عماد ،


 










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

الساعة الآن 11:39 صباحا