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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk

السلام عليكم ورحمة الله وبركاته هل فكرت يوماً بأنه يمكن لملف الإكسيل أن يقتل نفسه .. أن ينتحر ؟! يبدو أنه سيفعل ذلك بعد ..



05-09-2019 09:16 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20933
الاعجاب : 1487
 offline 

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

هل فكرت يوماً بأنه يمكن لملف الإكسيل أن يقتل نفسه .. أن ينتحر ؟! يبدو أنه سيفعل ذلك بعد كل ما فعلناه به smile

kSeGy_001

إليكم الكود الذي يقوم بمسح المصنف الحالي الذي يحتوي على الكود ، أي أن الملف يدمر نفسه تماماً ويمحو أثره من على الهارد ديسك.
Sub Suicide()
    If MsgBox("This Workbook Will Be Killed .  Are You Sure?", vbYesNo) = vbYes Then
        MsgBox "Great Decision Man", 64
        
        With ThisWorkbook
            .Save
            .ChangeFileAccess Mode:=xlReadOnly
            Kill .FullName
            .Close SaveChanges:=False
        End With
    Else
        MsgBox "You Are Insane! Why Didn't You Kill Me?", vbCritical
    End If
End Sub


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

لحماية المصنف من أن يتم تشغيله على هارد ديسك آخر أو جهاز آخر ضع الكود التالي في حدث المصنف
Private Sub Workbook_Open()
    If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "BE2EFE3A" Then
        With ThisWorkbook
            .Save
            .ChangeFileAccess Mode:=xlReadOnly
            Kill .FullName
            .Close SaveChanges:=False
        End With
    End If
End Sub

Sub Get_Hard_Disk_Serial_Number()
    Range("A1").Value = Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber)
End Sub



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

* قم بحفظ المصنف ثم أغلق المصنف وأعد فتحه ، سيتم فتح المصنف بشكل طبيعي لأن المصنف يعمل على جهازك وفقط ... جرب أن تعطي المصنف لأحد أصدقائك لتجربة الملف عنده ، واجعله يخبرك بالنتيجة (بالطبع لن يفتح الملف لديه بل سيمحى أثره بمجرد أن يقوم صديقك بفتح المصنف)

وأخيراً إليكم الملف المرفق به الأكواد المستخدمة في الموضوع ، مع تطبيق الكود الأول فقط ، أما الثاني فيلزم تجربته بنفسك


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

إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: Yasser Elaraby، صلاح الصغير، نصر الإيمان، محمود ابو الدهب، ali mohamed ali، محمد الدسوقى،





05-09-2019 09:50 صباحا
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
لا حول ولا قوة الا بالله 
هينتحر اكيد من اللي شايفه 30
0001

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى، محمود ابو الدهب،


توقيع :Yasser Elaraby
663013020



05-09-2019 10:34 صباحا
مشاهدة مشاركة منفردة [2]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 206
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 157
الاعجاب : 50
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
كم انت رائع يا عزيزى ياسر

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،




05-09-2019 10:49 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20933
الاعجاب : 1487
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
بارك الله فيك أخي الغالي ياسر العربي . هو بصراحة شاف كتير وعشان كدا لازم يموت smile

الأروع هو مرورك العطر أخي صلاح

أثارت هذه المشاركة إعجاب: محمد الدسوقى،




05-09-2019 10:57 صباحا
مشاهدة مشاركة منفردة [4]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 314
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 721
الاعجاب : 74
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
زادك الله علما استاذ ياسر
بارك الله فيك

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،




05-09-2019 11:04 صباحا
مشاهدة مشاركة منفردة [5]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 288
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 551
الاعجاب : 22
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
جزاكم الله خيرا

ملحوظة وسؤال

السؤال 
هل هناك فرق بين استخدام
             .ChangeFileAccess xlReadOnly
            .ChangeFileAccess Mode:=xlReadOnly
 
ملحوظة : 
يمكن استخدام هذا السطر لحذف الملف بدون رسالة انذار وتنبيه
             Application.Display a*lerts = False





05-09-2019 12:36 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20933
الاعجاب : 1487
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
لا فرق بينهما أخي أبا الحسن .. السطر الثاني مختصر فقط

أما السطر الأخير في مشاركتك لا يحذف الملف إنما يوقف تشغيل التبيهات ...

أثارت هذه المشاركة إعجاب: أباالحسن،




05-09-2019 01:39 مساء
مشاهدة مشاركة منفردة [7]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 288
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 551
الاعجاب : 22
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
نعم انا اقصد 
انه يوقف التنبيه
قبل القيام بعملية الحذف 

أثارت هذه المشاركة إعجاب: YasserKhalil،




05-09-2019 01:52 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20933
الاعجاب : 1487
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
الكود ينفذ الحذف بدون تنبيه وبدون استخدام a*lerts
التنبيه في الموجود في الكود عبارة عن رسائل للتأكيد ..





05-09-2019 04:16 مساء
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
بارك الله فيك استاذ ياسر خليل وعمل اكثر من رائع 

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

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،


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

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


05-09-2019 04:20 مساء
مشاهدة مشاركة منفردة [10]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5719
الاعجاب : 716
 Online 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
عمل ممتاز استاذ ياسر بارك الله فيك وجزاك الله خير الثواب

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى،


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


05-09-2019 05:04 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20933
الاعجاب : 1487
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
أخي العزيز محمود أبو الدهب
أخي العزيز علي
بارك الله فيكما وجزيتما خيراً ..

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




05-09-2019 10:51 مساء
مشاهدة مشاركة منفردة [12]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 offline 
look/images/icons/i1.gif انتحار ملف الإكسيل Workbook Suicide Kill Itself From Hard Disk
شكلك حبيبى ياسر
جاى كده  من الأجازة مزاجك عالى
أكواد رائعة من جعبة الحاوى
--------
ملحوظة صغيرة جدا
يحبذ استخدام سريال اللوحة الأم بدلا من سريال الهارد
حيث أن الكثير يشتكى من تلف الهارد أسرع وأكثر من المازر بورد

10635-10


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اتفرج على لوحة الموناليزا في الإكسيل Insert Symbols Using VBA YasserKhalil
15 106 YasserKhalil
سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object YasserKhalil
28 1274 YasserKhalil
كتاب لتعليم الفيجوال بيسك في الإكسيل (مدربك في 24 ساعة) YasserKhalil
18 364 YasserKhalil
رفع ملفات الإكسيل بالماكرو XLSM بدون ضغط الملف ali mohamed ali
6 138 Yasser Elaraby
الآن مع نشرة الطقس الإكسيلية لمعرفة حالة الجو Weather Forecast In VBA YasserKhalil
15 1653 YasserKhalil

الكلمات الدلالية
Disk ، Hard ، From ، Itself ، Kill ، Suicide ، Workbook ، الإكسيل ، انتحار ،


 







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



الساعة الآن 10:33 مساء

أعلن هنا
أعلن هنا
أعلن هنا