omarabdo80
-
Posts
20 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه omarabdo80
-
-
استاذنا الجليل / ياسر خليل
الف الف شكر على مساعدة حضرتك.
انا اصلى كنت مغير كلمة المرور و كنت بحاول افتح الملف بكلمة المرور القديمة. معلش اصلى بشتغل فى الملف ده من بدرى. حضرتك دلوقتى نبهتنى لكلمة المرور الصحيحة
الملف شغال تمام بفضل الله ثم حضرتك.
اتمنى لحضرتك و لكل الاعضاء الافاضل جمعة مباركة.
ارجوك تقبل فائق تحياتى و احترامى...
-
1
-
-
الله ينور يا افندم الكود كده شغال تمام.
المشكلة دلوقتى انى مش عارف ادخل على الملف اصلا. مش قابل اسم المستخدم او كلمة المرور. غالبا علشان موجودين فى الملف رقم 1 اللى متحدد مداه فى الخلية a1 و انا حاطط اسم المستخدم او كلمة المرور فى الخليتين b1 & b2.
يا ريت لو حضرتك تنصحنى اعمل ايه و انا برده ححاول اشوف حل لموضوع اسم المستخدم وكلمة المرور.
شكرا جزيلا و معلش تعبت حضرتك معايا.
-
الاستاذ الفاضل / ياسر خليل
اشكرك اولا على الاهتمام بموضوعى كما تعودنا منك دائما انت سباق فى مساعدة الاعضاء.
اردت ان استفيد من الاكواد الخاصة بالاساتذة الافاضل فى المنتدى، فمثلا يتم فتح الملف بشاشة افتتاحية "الكود مقتبس من موضوع الاستاذ الفاضل حمادة عمر"
ثم بعد ذلك يتم الدخول الى الملف رقم 1 و من خلاله يتم الدخول الى الملف رقم 2 حيث ان الملف رقم 2 يكون مخفيا و لا يتم الدخول اليه الا من خلال CommandButton
مرفق لسيادتكم الملف. مع العلم بان كلمة المرور 2015
لك خالص تحياتى و تقديرى.
-
السلام عليكم و رحمة الله و بركاتة.
اريد ان استخدم بعض الاكواد المقدمة من الاستاذة الافاضل فى المنتدى
فهل استطيع ان اجمع بين اكثر من كود عند فتح ملف الاكسيل؟ كما هو موضح فيما يلى.
Private Sub Workbook_Open()
Application.ScreenUpdating = FalseSheet1.Range("a1").Value = 1Worksheets(1).ScrollArea = "a1"Sheet2.Visible = TrueSheet2.SelectApplication.ScreenUpdating = FalseSheet1.SelectRange("a1").Value = 1End SubPrivate Sub Workbook_Open()Application.EnableCancelKey = xlDisabledApplication.Visible = FalseUserForm1.ShowWorkbooks.Application.Visible = TrueSheet2.SelectEnd Subو لسيادتكم جزيل الشكر -
الاستاذ المحترم / حمادة عمر
بارك الله فيك على الموضوع و الشرح المتميز، جعله الله فى ميزان حسناتك ان شاء الله
بصراحة مواضيع حضرتك مهمة جدا و انا شخصيا استفدت منها الكثير.
مع خالص تقديرى و احترامى...
-
الاستاذ / محمود الشريف
شكراً جزيلا على الشرح الرائع و الاسلوب المميز. بارك الله فيك و جعله فى ميزان حسناتك ان شاء الله
-
السلام عليكم و رحمة الله و بركاتة أ / عبد الله بقشير
الكود فى منتهى الروعة، تسلم ايدك و يا رب يكون فى ميزان حسناتك
انا بتابع مواضيع حضرتك و استفدت منها كثيراً.
عندى طلب صغيرة لو سمحت لى.
انا عايز استخدم الكود مع عمل حماية له بحيث لا يستطيع المستخدم العادى اظهار الاعمدة/الصفوف التى تم اخفائها، بحيث يكون ذلك عن طريقى فقط
بمعنى اخر، اذا تم عمل أخفاء لبعض الاعمدة /الصفوف لا يستطيع احد عن طريق right click then unhide إظهار الاعمدة /الصفوف مرة اخرى.
تقبل فائق احترامى و تقديرى ...
-
رائع جدا ما شاء الله، بارك الله فيك يا اخى
-
استاذى الحبيب ياسر خليل
ارجوك وضح لى قصدك
فدائما الاعضاء يطلبون منى ملفات مرفقه
وانا لسه بردو جديد فى المنتدى مقارنة بقامه مثلك
===========================
الموضوع ده ممكن يكون صعب عليا فى الوقت ده بس مش مستحيل (بسبب ضغوط العمل)
والحقيقه فكرت فيه ولكن بشكل اخر
ان يتم عمل ملف اكسيل على هيئه صفحات كل صفحه بها معادله مشروحه ومطبقة فى نفس الملف
ان شاء الله اعدك بعمله فور الانتهاء من ضغوط العمل
السلام عليكم يا أستاذ محمد
انا بس حابب ااقول لحضرتك الله ينور عليك و ان شاء الله يكون فى ميزان حسناتك انت و كل من يساهم فى هذا العمل العظيم و الذى سوف يخدم الكثير من المستخدمين.
عمل ارشيف للدوال أو للاكواد مع الشرح فى ملف اكسيل اكيد حيكون حاجة رائعة جدا، و حيكون فى سهولة للمرجعية و حييسر على المستخدمين كتير قوى.
ربنا يوفقك و لى الشرف فى معرفة شخص محترم مثلك.
مع خالص تحياتى
-
اخى العزيز ابن مصر
الف الف شكر على مساعدتك، برنس و الله. الله ينور يا استاذ
معلش لو ممكن طلب اخير. ازاى ااقدر اعمل حماية للاكواد المرفقة من التعديل، علشان محدش يدخل يلغى الكود او يعدل فيه.
مع خالص تحياتى
ضع باسورد وذلك بالدخول لمحرر الأكواد ثم Right-Click على اسم المشروع واختيار VBAProject Properties كما في الصورة
ثم من تبويب Protection ضع علامة صح بجوارLock Project for viewing ثم اكتب الباسورد التى تريدها .. واضغط موافق كما في الصورة
تحياتي
اخى العزيز ابن مصر
اشكرك من صميم قلبى على اهتمامك المتواصل، و اعتذر لك اذا كنت ضيعت لك وقتك. بجد مش عارف اشكرك ازاى
مع خالص تحياتى
-
1
-
-
شكرا جزيلا اخوتى الاعزاء انا وصلت لطريقة الحماية اللى كنت بسال عنها منذ قليل عليها و حابب اشارك و لو انى اعلم جيدا انكم تعرفونها، لكنها لمن لم يكن يعلم مثلى " و فوق كل ذى علم عليم"to protect your modulesright click on VBAPproject - Pproject Properties1. Select protection tape -2. Active check box "Lock project for viewing3. Type your password and confirm it4. Click Ok
-
اخى العزيز ابن مصر
الف الف شكر على مساعدتك، برنس و الله. الله ينور يا استاذ
معلش لو ممكن طلب اخير. ازاى ااقدر اعمل حماية للاكواد المرفقة من التعديل، علشان محدش يدخل يلغى الكود او يعدل فيه.
مع خالص تحياتى
-
( على حد علمى ان من عيوب القائمة المنسدله انها تسمح باللصق )
فى احد الخيارين امامى شوف ايه المناسب لك وانا تحت امرك
الاول
متابعه الرابط التالى
http://www.officena.net/ib/index.php?showtopic=58026&page=2
المشاركة رقم 23
هل يناسبك هذا الحل ام انك تريد النسخ بالملف
الثانى
عمل فورم بحث بالاكواد والاستغناء عن القائمة المنسدله
تقبل تحياتى
اخى العزيز
شكرا جزيلا على الرد، انا بحاول الان اتباع الارشادات المرسلة فى اللينك المذكور اعلاه، بس لو ممكن تبعت لى كلمة المرور الموجودة فى ملف اخفاء شريط الصفحات.
شكرا لك مرة اخرى على المشاركة الفعالة
-
الاخوة الاعزاء
انا بشكركم شكر لا مثيل له على اهتمامكم بموضوعى و مساعدتى، و اخص بالشكر الاستاذ الفاضل "ابن مصر" و الاستاذ الفاضل "ياسر خليل" على مشاركتم الفعالة.و فى نفس الوقت بعتذر عن التاخير فى الرد على مشاركتم الجميلة و ذلك بسبب انشغالى فى العمل من ناحية، و تطبيق الاكواد المرسلة لمعرفة مدى فاعليتها من ناحية اخرى. و لو سمحتولى لى ملحوظتين على الاكواد المرسلة من الاخ العزيز "ابن مصر" فى المشاركة رقم 7 و المشاركة رقم 11أولاً: الكود المرسل فى المشاركة رقم 7 الخاص بعدم السماح باللصق فى الخلايا المنسدلة، ستجدون انه عند التطبيق تظهر رسالة "Run-time error '1004'Method 'range' of object'_worksheet failed. فهل يمكن تطبيق الكود على العمود كاملاً؟ سيكون ذلك رائع جدا، و هل يكون ذلك بالنسبة لورقة العمل كلها ام يتعين تطبيقها فى كل ملف على حدا.ثانياً: الكود الخاص بعدم السماح باللصق فى الخلايا المنسدلة، ستجدون انه بنسخ اى خلية من ملف رقم 2 Ctrl C الى اى خلية منسدلة فى ملف رقم 1ثم Ctrl V فانها تقبل القيمة الجديدة. فكيف يمكن تلافى ذلك؟مرفق لكم الملف الكامل بعد التطبيق النهانى، و انا اسف ممكن اكون انا اللى مش عارف اطبق الاكواد بطريقة سليمة، لذا يرجى المساعدة و لكم جزيل الشكر..على كل الاحوال هاتين الطريقتين مناسبين جدا لى و بشكركم شكر كبير على مجهودكم -
استاذى الفاضل
جرب الحل التالى
اعمل كليك يمين على الخلايا اللى بها قائمة منسدله ومن بروتكت زيل خيار الحمايه عنها
ثم قم بعمل حمايه للورقة ككلك
هذا الحل سوف يسمح بالصق فى الخلية الموجود بها قائمة منسدله مع عدم ازالة القائمة المنسدله منها
تقبل تحياتى
أخى الكريم شكرا لك. لكن للاسف هذا الحل غير نافع
لقد قمت بعمل شرط من قائمة "Data validation" ليكون الاختيار من القائمة المنسدلة فقط، و يمكنك ان تلاحظ انه فى حالة ادخال اى بيان مخالف فإن الخلية لا تقبل هذا الادخال الغير صحيح. لكن المشكلة باننى حينما اقوم بنسخ اى خلية اخرى ثم اقوم بإلصاقها على الخلية الموجود بها الشرط فإنها تقبل هذه القيمة و ان كانت غير صحيحة.
شكرا لك على الاهتمام
-
أخى الكريم شكرا لك على الاهتمام بالرد على طلبى.
اعتذر اذا لم اكن واضحا بقدر كاف. السؤال هو كيف يمكن حماية خلايا الاكسيل من إلصاق اى بيانات من خلايا اخرى، بحيث يقتصر الامر على ادخال بيانات فقط. أما النسخ / الصق فلا يجوز
ارجو ان يتسنى لك الوقت لكى تلقى نظرة على ملف الاكسيل المرفق، لان به مثال عملى على ما اريد
شكرا لك على المتابعة و الاهتمام.
-
السلام عليكم و رحمة الله و بركاتة
من فضلكم انا عامل برنامج على الاكسيل يحتوى على خلية بها قائمة لاختيار نشاط معين من قائمة "Data Validation" و اريد حماية لهذه الخلايا من اى تعديلات بالنسخ من اى خلية اخرى.
مرفق ملف لمزيد من الايضاح
و لسيادتكم جزيا الشكر....،
-
شكرا جزيلا و جزاك الله خيرا
-
تابع الدرس الثانى
ندخل الى مرحله تنفيذ الماكرو الذى قمنا بتسجيله
ولها خطوات معينة كالتالى :
نذهب الى الشيت ثم نضغط على Insert
تظهر لنا نافذة نختار منها Button
ثم نقوم بوضعه داخل الشيت
كما بالصور التالية
ثم نقوم بالضغط على الزر كليك يمين
ونختار تعيين ماكرو كالتالى
تظهر لنا نافذة
نختر منها اسم الماكرو وهنا قد اسميته MZM_ELSHRIEF
ثم نختار This Workbook
ثم نضغط على OK
كالتالى
الآن يمكنك تنفيذ الماكرو الذى قمنا بتسجيله
بمجرد الضغط على الزر أى Button
يمكنك أيضا تغيير اسم الزر اذا اردت ذلك كالتالى
بالضغط كليك يمين على الزر
تظهر لك نافذة اختر منها اضافة نص
حفظ الملف
عند حفظ الملف تظهر لنا رساله كما بالصورة التالية
نضغط على زر NO
فتظهر لنا رساله أخرى كما بالصورة التالية
نضغط على زر Yes
فتظهر لنا نافذة كما بالصورة التالية
نقوم بإختيار من Save as type
Excel Macro-Enbled Workbook
ثم نضغط على Save
الخيار التالى كما بالصورة التالية
فتكون أيقونه الملف كما بالصورة التالية
انتهى الدرس الثانى
مرفق ملف PDF
به كامل الدرس الثانى
يرجى فى حاله هناك استفسار أن يكون فى مضمون الدرس
حتى لا يتم التشتيت
وتقبلوا منى وافر الاحترام والتقدير
دالة Weekday
في منتدى الاكسيل Excel
قام بنشر
السلام عليكم و رحمة الله و بركاته
مطلوب منى اعمل ملف للحضور و الانصراف بالشركة فقمت بتنزيل ملف اكسيل مناسب لنا لكنى وجدت ان ايام الاسبوع محسوبة ابتداء من يوم الاثنين و هذا بخلاف ما هو معمول به فى مصر.
حاولت اغير فى المعادلة لكن دائما يكون فى شيء مش مظبوط.
اذا كان ممكن حضرتك تقولى اعمل ايه لان الملف كله دوال مرتبطة ببعض (التاريخ، اليوم، ايام الاجازات)
مرفق الملف
لكم جزيل الشكر
Attendance Sheet.zip