كل الانشطه

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

@Foksh بص اللي قولته مبغيرهوش لاني مدب ومبعرفش اتلون وسواء اتفقت معاك او اختلفت معاك مبيتغيرش انت فعلا قيمه وقامه سواء في مسئولية او لا فالعلم اللى ربنا وهبهولك امانه ومن ضمن الحاجات اللي تنفع الواحد حتي بعد مماته ربنا يديك طول العمر ( او علم ينتفع به ) كما قال الحديث الشريف موضوع ابتعاد الناس اوقات عن الإنسان مش شرط يكون حاجه وحشه 😁 انت فكرك يا عزيزي لما احد من والديك كان يقولك ربنا يكفيك شر ولاد الحرام 🤲 مش يمكن اللي بيبعد عنك دول مش شبهك او لما يبعدو عنك هتكون افضل او فيوم من الايام هيعرفو انهم غلطو بحقك ويرجعولك ويعلم ربنا اني برضو مقصدش اي حد بعينه من كلامي ده لاني زي مقولت فالبدايه شخص غير متلوت ولا احب ان ارمي كلام يحمل اكتر من معني ولا احب أن اخوض في اشخاص بكلمات مستعاره ( بالبلدي كده انا من النوع اللي ممكن اقول للأعور انت اعور في وشه )

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

بص هو بغض النظر عن اللي انت كاتبه واللي انا كعضو همر عليه مرور الكرام واقول وجهه نظري بصراحه بدون تجمل وربنا يشهد ( كأنك متكلمتش اصلا ) في جمله جميله عجباني من زمان ليست الألقاب هي من تكسب الأشخاص مجدا ولكن الاشخاص هم من يكسبون الألقاب مجدا يا عزيزي انت بروفيسور ودكتور اكسس سواء كنت عضو ولا معضوش وسواء انت في درجه خبير او لا وعلي المستوي الشخصي انت مثال للانسان النقي المحترم الخلوق

هذه ليست قاعدة بيانات صغيرة 😅 هذه على ما يبدو مشروع كامل 😉

المشكلة لم تكن في التطبيق بل كانت في طريقة الإستخدام

ياريت لو فى امكانية من مرفق ملف word اللى حضرتك بتقول انه بتنسيق معين علشان اعرف احدد طريقة الاجابة الافضل من وجهة نظرى المتواضعة

اريد كود الحماية الخلايا من e10 الى I10 من e13 الى I13 من e20 الى I20 من e27 الى I27 من e33 الى I33 من e46 الى I46 من e56 الى I56 من e59 الى I59 من e62 الى I62 من e68 الى I68 من e68 الى I68 حيث كود الحماية يكون هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Range("A2:K2") هنا ادراج جميع الحلايا المراد حمايتها لم اعرف كيف ادخلها من E13.الئ I13 ................ If Not Intersect(Target, protectedRange) Is Nothing Then Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub

السلام عليكم ورحمة الله وبركاته .. في ظل التجربة التي مررت بها في الفترة السابقة ، وقد كانت غلطتي الكبرى قبولي لترقية عضويتي من خبير الى مشرف . وحيث أنني لاحظت وللأسف خسارتي بهذه الترقية - التي كان لي شرف تجربتها - الى كوكبة من الأصدقاء الخبراء تحديداً والموهوبين . حيث لمست بشكل واضح أنهم وللأسف - وأحترم قراراتهم الشخصية - قد أصبحوا غير متفاعلين في جميع المواضيع التي كنت أطرحها ، إلا من رحم ربي . وهذا وللأسف لم يكن مكسباً لي بهذه الترقية مع الأسف الشديد . وعليه فإنني أخص بالذكر هنا كلاً من الأخوة :- @محمد طاهر عرفه @ابوخليل @jjafferr احترام رغبتي بهذا الطلب قلباً ومضموناً ، و إعادة عضويتي الى ( درجة خبير ) السابقة . فأنا لا أحب التقاعد 😁 ولكم الإحترام والتقدير على سرعة الإستجابة

اخى زاكى الكود داخل الملق عدم التعديل فى اسطر محددة (1).xlsb

السلام عليكم فلنفترض انه لدينا مركز صيانه معين به عدد خطوط خط لإنتاج الشاشات - خط لإنتاج التليفونات - خط لإنتاج الثلاجات... وهكذا فمثلا كل الشاشات هيكون لها نفس رقم الطراز او الموديل ولكن كل شاشه هيكون لها رقم مسلسل مختلف عن الشاشه الاخري طب بالنسبه لطريقه العمل كل مسلسل معين منهم له وثيقه عمل معينه لكي يكتمل المنتج مثلا:- مرحله الفك - مرحله اصلاح - مرحله اختبار - مرحله قياسات - مرحله تجميع ....وهكذا وكل مرحله من المراحل دي لها مجموعه من العمليات الفرعيه او القراءات او القياسات المحدده سواء في الفك او التجميع او الاختبار وهكذا طيب المهم هنا ان العاملين في الخطوط دي مثلا كالتالي عامل - مفتش - كبير خطوط - مراجع جوده - مدير وكل واحد فيهم له بصمه ختم وليكن صوره فمثلا العامل لما يخلص عمليه فرعيه معينه او مجموعه اجراءات معينه ويكتب مسموحات المفروض يوقع ببصمه ختمه في الخانه المخصصه لذلك وبعدها يجي المفتش يعمل نفس الموضوع وبعدها كبير الخطوط طيب فلنفترض ان الوثيقه دي بالفعل موجوده كملف word او pdf فالطبيعي الورد او البي دي اف يتيح انك تعمل تخصيص للتوقيعات لكذا شخص ولكن المشكله هنا انه كل عمليه يتم عمل اي اجراء عليها هيستلزم ( save as ) وبالتالي نفس الرقم المسلسل للشاشه دي هيبقي له اكتر من وثيقه عمل محفوظه او مع كل تعديل هيتطلب الحفظ ( وده هيبقي رخم ) فهل الانسب هنا اننا نعدل كل العمليات لجداول ويتم تطبيقها علي اكسس مباشر ؟ ولا هل في طريقه معينه اننا نعمل بيها قاعده بيانات اكسس ( حتي لو نموذجين مثلا تسجيل دخول - ونموذج لتوقيعات كل واحد منهم ) بحيث ان اي حد فيهم لما يسجل دخول يقلب فالملف ويقدر يحط البصمه بتاعه الختم بتاعته كما يشاء علي نفس الملف ؟ فأيه احسن اقتراحات للموضوع ده عشان يتم انزال الختم او كتابه اي ملاحظات لاي واحد من العاملين علي نفس الوثيقه ( word او pdf) لانها بتنسيق معين وعشان نعمل نفس التتسيق ده في تقرير الاكسس هيبقي محتاج وقت ومجهود وشكرا مقدما

السلام عليكم اريد خلق ماكرو حمابة الخلايا كبف يتم ذلك

اين الملف

اشكرك الشكر الجزيل

ممكن برنامج dyam3813@gmail.com

مساء الخير على الاخوة والاخوات الاعزاء .. أريد برنامج حسابي بسيط عبارة عن جدول بالاكسل وتحويله الى الاكسس سوف ارفقه لاحقاً يمثل مصروفات مواد مع مجمل الصرف مع أجور يومية مع مجمل الصرف مع مصروفات متفرقة مع مجمل الصرف مع مصروفات شخصية بجدول مع حساب مجمل كلي لتك المصروفات وينبثق من هذا الجدول نموذج مع تقرير .. وأكون شاكراِ لكممصروفات 23-4-2026 - Copy - Copy.xls

يا هلا والله تسلم ايدك استاذ @kkhalifa1960 فكرة اختزال الازرار ولا اروع

ممكن مشاركة مع استاذي @ابو جودي بهذا العمل .... تفضل استاذ @حسام الفولي الشرح والمرفق . ووافني بالرد . CARD.rar

وعليكم السلام ورحمة الله وبركاته المشكلة في الملف نفسه الأسباب المحتملة كود VBA تالف. UserForms أو Modules فيها مشكلة. انقطع حفظ الملف أثناء التعديل. والحل لا بد من فحص الملف نفسه من الداخل لمعرفة سبب المشكلة

انا كنت حليت لك هذه المشكلة من قبل بتارخ 6/11/2023 من هنـــــــــــــــــــا .

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

@Foksh مشغوله هل فترة ما اقدر اكلمك خاص 😂 استاذ على القليل تناديني استاذه اذا مداني دخلت التحدي على خفيف ====================================== 1- Fix_ لا يكمن التحريك نافذه حسب الشاشه 2- Fix_ يعمل حفظ وترتيب مجموعات وانشاء مجموعة وضبط المصنع بنافذه 3-Fix_ يمكن تغير الخلفية من الاعدادات من غير وميض ولا ترميش 4- امكانية حفظ الاحدثيات للنافذه وكامل الشاشة بتوزيع سطح مكتب نظام 5- امكانية تغير لون وخلفية النصوص للقواعدة البيانات 6- اضافة حجم المساحة لكل قاعدة مع تغير لون القاعدة اذا تجاوز مساحة 1GB 7- Fix_ يعمل بتحديث النظام عند الفتح والاقلاع 8- استعلامات وبعض الاضافات واضافة تنبيهات لكل قاعدة حول بيانات القواعد والاحصاء ... مفتاح :8888-8888-8888-8888-8888 (مفتوح المصدر) يمكن الاختصار الدخول الى Logen Or XCC حجم خفيف على التحميل ملاحظة يجب عند الاقلاع قبل الاتصال ضبط مسارات القاعدة ثم اتصال https://drive.google.com/file/d/1VgaJAMfqInDQ8XclOxXMbnVsI-nZY1fl/view?usp=sharing

اخى زاكى الكود داخل الملف إذا تمت الكتابة على خلية لا يتم التعديل عليها Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Range For Each X In Target ' 600 åæ ÇÎÑ ÓØÑ áÚãá ÇáßæÏ 'L åæ ÇáÚÇãæÏ column 12 If (X.Row < 600 And X.Column < 12) Then If ActiveSheet.ProtectContents = True And X.Value <> "" Then X.Offset(0, 1).Select End If Next End Sub

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

حياكم الله