نجوم المشاركات

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

الموضوع هو تحقيقا لطلب احد اخواننا االكرام وفيه يمكن تحديد الازار داخل نظام المستخدمين في المثال المستخدم محمد معرف =1 والسري=1 مسموح له جميع الازرار ما عدا زر الصلاحية والمستخدم ابوخليل معرف=2 والسري=2 مسموح له الصلاحية فقط آمل ان تجدوا الفائدة صلاحية الازرار.rar

بسم الله الرحمن الرحيم الاستعلام الإجرائي هو استعلام يُجري تغييرات على العديد من السجلات أو ينقلها في عملية واحدة فقط . توجد أربعة أنواع من الاستعلامات الإجرائية: حذف وتحديث وإلحاقي وتكوين جداول. نقوم بتحويل الاستعلام الاجرائي الى جملة vba كنوع من الحماية ولتقليل واختصار الكائنات داخل القاعدة وإليكم الطريقة حيث سنطبق الدرس على استعلام حذف : 1- بفرضية ان لدينا جدول باسم tbl1 يحتوي على العديد من الحقول وكثير من البيانات ثم قمنا بانشاء استعلام حذف واخترنا الكل أي اننا نفتح استعلام حذف جديد ثم نختار الجدول ثم نختار الحقل الاول من الجدول والذي هو عبارة عن نجمة الآن لو تم تشغيل الاستعلام لقام بحذف كافة البيانات داخل الجدول . 2- في عرض تصميم الاستعلام ننقر بالزر الايمن تم نختار عرضSQL ثم ننسخ الجملة البرمجية التي تظهر لنا وستظهر على الهذا النحو : DELETE Tbl1.* FROM Tbl1; ولكنها هكذا مادة خام تحتاج الى اضافات حتى نتمكن من تشغيلها داخل الكود وتتمثل الاضافات بالتالي : - جعل الجملة على سطر واحد ، او اضافة ( _ ) في نهاية كل سطر لتقسيم الجملة الى اسطر (في المرفقات برنامج يقوم بذلك ) - جعل الجملة بين علامتي تنصيص مزدوجتين - اضافة امر تشغيل جملة سكول docmd.RunSQL في بداية الجملة وهناك اضافات خارج الجملة وهي لمنع رسائل التحذير عند بدء تشغيل الكود واعادتها في نهاية التشغيل وتتمثل في السطرين التاليين DoCmd.SetWarnings False قبل بداية الجملة DoCmd.SetWarnings True بعد انتهاء الجملة لتظهر الجملة في النهاية داخل الكود هكذا : DoCmd.SetWarnings False Docmd.RunSQL"DELETE Tbl1.* FROM Tbl1" DoCmd.SetWarnings True هذا كل شيء ،، في المرفقات برنامج من مكتبتي يقوم بتحويل الاستعلام الى جمل sql وتنسيقها .. ادعوا لصاحبه جزاه الله خيرا تحويل SQL إلى VBA.rar

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

في الموضوع المطروح على الرابط .... http://www.officena.net/ib/index.php?showtopic=45643 تمت الإجابة على موضوع إنشاء الملجلدات برقم الموظف وآثرت إستكمال الردّ على تشعب الأسئلة ، بموضوع جديد تحقيقاً لشروط المنتدى وهنا سنتحدث ونطبق آلية نسخ و نقل الملفات بين المجلدات حيث سنقوم ببناء الروتين بعد التحليل ثم ننتقل للتطبيق والله المستعان ... وهو سبحانه من وراء القصد وهو حسبي ...........

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

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

السلام عليكم إخواني الكرام ... أشعر أن المنتدى كله مركز على الأسئلة والطلبات أكثر من الموضوعات التعليمية .. فإليكم درس خفيف ظريف ولن يستغرق منك في دراسته أكثر من 4 دقائق .. ************** نتحدث بشكل سريع عن استخدام دالة VLOOKUP للبحث عن جزء من النص داخل نطاق .. إليكم الملف المرفق به الشرح ، وأي استسفار أو سؤال لا تتردد واسأل ، لا تخجل من السؤال مهما بدا تافهاً لأن السؤال طريق ..طريق (وكله مطبات) بس هو طريق المعرفة .. VLOOKUP Text Inside A String.rar

بارك الله فيك يا أبو آلاء وفقك الله لما يحبه ويرضاه

بارك الله فيك أخي الحبيب محمد الريفي وهذا حل آخر إثراء للموضوع وضعت الحل مع حلك أخي محمد Count Adjacent Numbers.rar

على ما اعتقد لن يكون هناك اعتداء على حقوق الملكيه الفكريه الا فى التعديل على البرنامج بشكل عام من حيث التصميم ومحتوياته البرمجيه هذا والله أعلى وأعلم بالتوفيق

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

المعادله هى معادلة صفيف لابد من الضغط على CTRL+SHIFT +ENTER وهى ان شاء الله معادله بسيطه جدا الخطوه الاولى : =IF((A1=$R$4)*(B1=$R$4)*(C1=$R$4);1;"") الخطوه الثانيه : عدد القيم التى تساوى واحد فى الخليه O4 =COUNTIF($A$4:$N$4;1) او بداله =SUM(A4:N4) تحياتى

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

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

http://et3lmonline.com/2012/04/if-statement-ms-excel-vba-basics/ وهذا موضوع ثاني http://et3lmonline.com/2012/03/vlookup-function-ms-excel/ تحويل الاعمدة لصفوف و العكس http://et3lmonline.com/2011/07/switch-excel-data-from-rows-to-columns-or-vice-versa/ Microsoft Excel Training الربط بين صفحات العمل من خلال الـ Hyperlink http://et3lmonline.com/2011/05/%D8%A7%D9%84%D8%B1%D8%A8%D8%B7-%D8%A8%D9%8A%D9%86-%D8%B5%D9%81%D8%AD%D8%A7%D8%AA-%D8%A7%D9%84%D8%B9%D9%85%D9%84-worksheets-%D9%85%D9%86-%D8%AE%D9%84%D8%A7%D9%84-%D8%A7%D9%84%D9%80-hyperlink/ إخفاء أخطاء المعادلات | الدالة IFERROR http://et3lmonline.com/2010/02/iferror-function-ms-excel/

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

أخي الغالي أبو تراب ما أقدمه قد يكون كغثاء السيل ، كثير لكنه ليس في قيمة ما تقدمه ..فما تقدمه قد يكون قليلا ولكنه كالزبد بارك الله فيك وجزاك الله كل خير على كا ما تقدمه أخي الحبيب أبو تراب وفي انتظار مزيدك

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

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

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

اخى الكريم المطلوب غير واضح هل تقصد هكذا تجميع010.rar

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

تفضلوا هذا الملف شكراً لك ولكن يعطيني الموقع بأن الملف لا يسمح بتحميله علماً أن الملف هو أكسس 2007 آسف عرفت لاحقاً يجب ضغط الملف لتحميله تفضلوا هذا الملف مع الشكر book.rar

تـفضل اخي المعادلة التالية شرح المعادلة لو كانت قيمة الخلية A3 أكبر من الرقم 200 أترك الخلية فارغة لو كانت قيمة الخلية A3 أصغر او تساوي من الرقم 100 اكتب 30 لو كانت قيمة الخلية A3 أصغر او تساوي من الرقم 200 اكتب 40 =IF(A3>200;"";IF(A3<=100;"30";IF(A3<=200;"40")))

بارك الله فيك أخي الحبيب وجزاك الله كل خير

إضغط الملف أولا باستخدام winrar أو winzip ثم إرفع الملف المضغوط

الاخ الصقر شكرا لك الموضوع يستحق التثبيت فعلا وانا عملت الواجب

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

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

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

ما شاء الله عمل ممتاذ جعله الله فى ميذان حسناتك

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

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

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

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

قمت ببعض التغييرات على الجداول في بعض المسميات واستحداث بعض الحقول فأرجو المراجعة مرة اخرى - استحداث حقل المراحل كقيمة وادراجه فقط في جدول الطلاب - الدمج من جهتين في جدول التوزيع حيث الغينا حقل المراحل وحقل اقسام الثانوي ودمجناهما في حقلي الصفوف والشعب حيث دمجنا المراحل ضمن حقل الصفوف ودمجنا اقسام الثانوي ضمن حقل الشعب او ما يسمى الفصول - يهمنا حقل المراحل فقط عند اخراج النتائج والتقارير الخطوة التالية هي : مطلوب متبرع يقوم بادخال بيانات كافية وافية كالتالي : 1- ادخال جميع المواد المقررة في جميع المراحل 2- ادخال اسماء طلاب موزعين على فصول وشعب يتم انتقاؤها وتشمل المراحل الثلاث بما يغطي التجربة والتطبيق 3- ادخال اسماء معلمين وتوزيعهم على الصفوف والشعب ومادة التدريس كل ما كانت البيانات وافية ومتقنة كان التطبيق ممتعا وشيقا من اجل ذلك عملت نماذج مساعدة لادخال البيانات بانتظار اي ملاحظة او استفسار SCH2.rar

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

نباشر وعلى بركة الله ... اللَّهُمَّ أنت عضُدِي ونَصِيري ، بِك أَجُولُ ، وبِك أصولُ إخوتي ضمن النموذج ننفذ ما يلي : تحديد إسم المجلد (الذي يخص الموظف المعني) ، ضمن مربع نص EMP NO إختيار الملف الذي نرغب بنسخه ، ضمن مربع نص txtFile و رز أمر btnBrowse تحديد مسار المجلد الرئيسي الخاص بمجلدات الموظفين ، ضمن مربع نص txtloc تحديد إسم الملف محل النقل في حال رغبتنا لإجراء أي تعديل عليه ، ضمن مربع نص txtFN تحديد المسار النهائي وإسم الملف النهائي ، محل الإجراء ، ضمن مربع نص txtlocF زر أمر لإجراء النسخ btnMove زر أمر لفتح المجلد btnE_File وظيفة (روتين ) لتطبيق النسخ MoveAFile وللحديث بقية ... ..........

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

إليك ما وصلت اليه قبل طلبك الأخير عسى أن تستفيد منه أنت أو أحد الإخوة والله من وراء القصد وهو حسبي ........... NA_ Multi Search.rar

Conditional Formatting, Alert, Statistics أريد ان انفذ التنسيق الشرطي عبر الكود ، بقيمة حقل او حقلين أو غيره ، بشرط معين او شروط اطبق نتيجة بصرية في النموذج ، من باب التنبيه أو الاحصاء. الكود التالي يؤدي الغرض Private Sub Form_Current() If Me.strDate < Date Then Me.ID.BackColor = vbRed End If End Sub وطبعا البساطة والتعقيد تبع للظروف ... والمتطلبات ، ولكن هذه أصل الفكرة .... القاموس

Doblecated recorde في النموذج نختار رقم الفرع أو المعرض ثم نثبت السنة ثم نختار رقم الطلبية ، بعدها يبدأ عمل الكود (قبل التحديث أو بعد التحديث) ، فانا لا أريد تكرار السجل لرقم الطلبية لهذا الفرع لهذه السنة ، ثلاثة متلازمة ، هذا الكود يمنع التكرار . Private Sub OrderID_AfterUpdate() Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!strOrder = Me!OrderID And rst!strCenter = Me!Center And rst!strYear = Me!Year Then MsgBox " Doblecated recorde ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " Note;. " Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

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