أبو محمد سلامة

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

الأخ العزيز هاني بالملف المرفق فكرة ارجو ان تكون ما تحتاج . SER-1.rar

الأخ العزيز هاني بعد إذن أساتذتنا ولهم طبعا كل الشكر هذا الكود لإخفاء وإظهار علامات تبويب أوراق العمل ، وأستسمح أستاذنا الكريم هشام شلبي في استخدام نفس ملفه مع تبديل الأكواد . اخفاء واظهار علامات تبويب الأوراق.rar

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

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

الأخ الكريم أبو أكرم شرح رائع ماشاء الله مشكور ويعطيك العافية ويارب يجعله في ميزان حسناتك .

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

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

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

أخي الفاضل رجاء تجربة الملف المرفق . New Microsoft Office Excel Worksheet (8).rar

الآن رمضان كريم !!! أكيد رمضان كريم ولكن لتوضيح الأمور فإن ما قمت به أنت هو تعديل بكود الترحيل بوضع Set MySheets = Sheets(Cells(A, 3).Text) وضعتها بدل DIM MySheets AS STRING التي وضعها أخونا إكسيلجي مما يؤكد كلامي ان المشكلة كانت بالكود ولم تكن بتنسيق الرقم كما ادعيت في كلامك وبأسلوب ما زلت أصر واؤكد أنه غريب على هذا المنتدى وأنه غير لائق : فلم يرى اخونا المشرف ان القائمة المنسدلة تعرض اسم الحساب كرقم هندسى ! فيجب ان تكون القائمة المنسدلة لأسماء الحسابات تحتوى الأسماء الحقيقية لأسماء الحسابات وليس كرقم هندسى وياريت مثل ما بدأت ردك برمضان كريم تكون إنت كمان كريم وتنتهي عن أسلوبك المستفز وتقدم شيء للمنتدى يدل على ذلك بدل تصيد الهفوات للظهور والتفاخر . أبو محمد

الأخ noon لم استغرب أبداً أن تقوم أنت بالذات بالرد على كلامي بل توقعت ذلك بنسبة 100% فلتلاحظ اسلوبك واسلوب من تدافع عنه ولتقارن بين اسلوبكما واسلوب أي عضو في المنتدى لتعرف بحق من هم " المعتدين " ومن هم اللذين يتعاملوا مع مشرفي المنتدى الأفاضل بقلة احترام ، وكنت أتمنى أن يقوم صديقك excel-1 بالرد على كلامي واإثبات عكسه إن استطاع . أبو محمد

الأخ EXCEL-1 إن لم يكن لديك الحد الأدني من أصول اللياقة في التخاطب والتعامل مع الناس فمن المؤكد أن هذا المنتدى ليس المكان الذي يجب أن تطل فيه بهذا المستوى من الأسلوب ، وإن كنت ترى أنك عالم وجهبز وأنك أفضل من مشرفي المنتدى المحترمين فهلا عدت إلا صوابك وتذكرت أن لا كبير في العلم " ففوق كل ذي علم عليم " وإن كنت منصف فقم بإلغاء التعديل الذي قام به الأخ إكسيلجي واترك تعديلك الذي جئت به وأرينا كيف ستحل المشكلة بتعديل تنسيق الرقم فقط وقد فاتك أن الرقم على وضعه بدون تعديل تنسيقه يتم ترحيله بتعديل أخي إكسيلجي في الكود وهو وضع تعريف للمتغير MYSHEET بتعريفه بالسطر DIM MYSHEET AS STRING فهل اريتنا مهارتك يا عبقري في حذف هذا السطر والاكتفاء بتعديلك الغبقري لتنسيق الرقم في حل مشكلة الترحيل ، ثم يا أخي طالما انت عبقري إلى هذا الحد فلماذا لاتظهر عبقريتك إلا في انتقاد عمل الآخرين في المشاركتين اليتيمتين اللي شاركت بيهم لو انت عبقري بجد ورينا عبقريتك في مشاركات خاصة بك في دروس في ال VBA التي يحتاجها الجميع فهلا قبلت التحدي وكنت عضو إيجابي بدل الانتقاد الغير مبرر والغير منطقي . أبو محمد سلامة

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

أخي أبو أسامة شكراً على المعلومة ، ولكن مع الأسف الكود لا يعمل على هذا النحو ك WORKSHEET CODE ويمكن تجربة ذلك بنفسك . أبو محمد

أخي أرجو أن أكون فهمت ما تقصد من خلال هذا المرفق . test_time.rar

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

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

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

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

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

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

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

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

الأستاذ الفاضل / هادي سالم جزاكم الله كل خير على هذا العمل المتميز بحق وأهنئكم وأعضاء هذا المنتدى الرائع بمناسبةعيد الأضحى المبارك وكل عام وحضراتكم بخير . لي طلب لو تكرمت أستاذ هادي وهو أنه عند اختيار الرقم في العمود A من القائمة المنسدلة فإنه لا يتغير بالتالي بشكل مباشر الإسم في العمود B إلا أن يتم كتابته أقصد الرقم وليس اختياره من القائمة المنسدلة ، فهل من الممكن أن يتغير الإسم بمجرد تغيير الرقم من القائمة المنسدلة بشكل مباشر ، أرجو أن أكون قد وفقت في توصيل الفكرة ، وجزاكم الله خيراً . وللتوضيح أكثر مرفق نفس الملف وقد قمت بتغيير الأرقام بالعمود A كلها إلى الرقم 1 من القائمة المنسدلة ومع ذلك وكما هو واضح لم يتغير الإسم بالعمود B. لكم كل الشكر وجزاكم الله كل خير . New_If_02.rar