omarabdo80

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

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

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

الاستاذ الفاضل / ياسر خليل اشكرك اولا على الاهتمام بموضوعى كما تعودنا منك دائما انت سباق فى مساعدة الاعضاء. اردت ان استفيد من الاكواد الخاصة بالاساتذة الافاضل فى المنتدى، فمثلا يتم فتح الملف بشاشة افتتاحية "الكود مقتبس من موضوع الاستاذ الفاضل حمادة عمر" ثم بعد ذلك يتم الدخول الى الملف رقم 1 و من خلاله يتم الدخول الى الملف رقم 2 حيث ان الملف رقم 2 يكون مخفيا و لا يتم الدخول اليه الا من خلال CommandButton مرفق لسيادتكم الملف. مع العلم بان كلمة المرور 2015 لك خالص تحياتى و تقديرى. Trialsheet.rar

السلام عليكم و رحمة الله و بركاتة. اريد ان استخدم بعض الاكواد المقدمة من الاستاذة الافاضل فى المنتدى فهل استطيع ان اجمع بين اكثر من كود عند فتح ملف الاكسيل؟ كما هو موضح فيما يلى. Private Sub Workbook_Open() Application.ScreenUpdating = False Sheet1.Range("a1").Value = 1 Worksheets(1).ScrollArea = "a1" Sheet2.Visible = True Sheet2.Select Application.ScreenUpdating = False Sheet1.Select Range("a1").Value = 1 End Sub Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True Sheet2.Select End Sub و لسيادتكم جزيل الشكر

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

الاستاذ / محمود الشريف شكراً جزيلا على الشرح الرائع و الاسلوب المميز. بارك الله فيك و جعله فى ميزان حسناتك ان شاء الله

السلام عليكم و رحمة الله و بركاتة أ / عبد الله بقشير الكود فى منتهى الروعة، تسلم ايدك و يا رب يكون فى ميزان حسناتك انا بتابع مواضيع حضرتك و استفدت منها كثيراً. عندى طلب صغيرة لو سمحت لى. انا عايز استخدم الكود مع عمل حماية له بحيث لا يستطيع المستخدم العادى اظهار الاعمدة/الصفوف التى تم اخفائها، بحيث يكون ذلك عن طريقى فقط بمعنى اخر، اذا تم عمل أخفاء لبعض الاعمدة /الصفوف لا يستطيع احد عن طريق right click then unhide إظهار الاعمدة /الصفوف مرة اخرى. تقبل فائق احترامى و تقديرى ...

رائع جدا ما شاء الله، بارك الله فيك يا اخى

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

ضع باسورد وذلك بالدخول لمحرر الأكواد ثم Right-Click على اسم المشروع واختيار VBAProject Properties كما في الصورة ثم من تبويب Protection ضع علامة صح بجوارLock Project for viewing ثم اكتب الباسورد التى تريدها .. واضغط موافق كما في الصورة تحياتي اخى العزيز ابن مصر اشكرك من صميم قلبى على اهتمامك المتواصل، و اعتذر لك اذا كنت ضيعت لك وقتك. بجد مش عارف اشكرك ازاى مع خالص تحياتى

شكرا جزيلا اخوتى الاعزاء انا وصلت لطريقة الحماية اللى كنت بسال عنها منذ قليل عليها و حابب اشارك و لو انى اعلم جيدا انكم تعرفونها، لكنها لمن لم يكن يعلم مثلى " و فوق كل ذى علم عليم" to protect your modules right click on VBAPproject - Pproject Properties 1. Select protection tape - 2. Active check box "Lock project for viewing 3. Type your password and confirm it 4. Click Ok

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

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

الاخوة الاعزاء انا بشكركم شكر لا مثيل له على اهتمامكم بموضوعى و مساعدتى، و اخص بالشكر الاستاذ الفاضل "ابن مصر" و الاستاذ الفاضل "ياسر خليل" على مشاركتم الفعالة. و فى نفس الوقت بعتذر عن التاخير فى الرد على مشاركتم الجميلة و ذلك بسبب انشغالى فى العمل من ناحية، و تطبيق الاكواد المرسلة لمعرفة مدى فاعليتها من ناحية اخرى. و لو سمحتولى لى ملحوظتين على الاكواد المرسلة من الاخ العزيز "ابن مصر" فى المشاركة رقم 7 و المشاركة رقم 11 أولاً: الكود المرسل فى المشاركة رقم 7 الخاص بعدم السماح باللصق فى الخلايا المنسدلة، ستجدون انه عند التطبيق تظهر رسالة "Run-time error '1004' Method 'range' of object'_worksheet failed . فهل يمكن تطبيق الكود على العمود كاملاً؟ سيكون ذلك رائع جدا، و هل يكون ذلك بالنسبة لورقة العمل كلها ام يتعين تطبيقها فى كل ملف على حدا. ثانياً: الكود الخاص بعدم السماح باللصق فى الخلايا المنسدلة، ستجدون انه بنسخ اى خلية من ملف رقم 2 Ctrl C الى اى خلية منسدلة فى ملف رقم 1ثم Ctrl V فانها تقبل القيمة الجديدة. فكيف يمكن تلافى ذلك؟ مرفق لكم الملف الكامل بعد التطبيق النهانى، و انا اسف ممكن اكون انا اللى مش عارف اطبق الاكواد بطريقة سليمة، لذا يرجى المساعدة و لكم جزيل الشكر.. على كل الاحوال هاتين الطريقتين مناسبين جدا لى و بشكركم شكر كبير على مجهودكم Crew Change.rar