كل الانشطه

صيغة الملف XLSX وهذه الصيغة لا تحتفظ بالكود بل تحذفه في اي شيت تريد اظافة الكود

السلام عليكم اخي هذا الملف نرجو منكم حماية الخلايا في ورقة :ادخال نفقات Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Union( _ Range("E10:I10"), _ Range("E13:I13"), _ Range("E20:I20"), _ Range("E27:I27"), _ Range("E33:I33"), _ Range("E46:I46"), _ Range("E56:I56"), _ Range("E62:I62"), _ Range("E68:I68") _ Range("E74:I74") _ ) If Not Intersect(Target, protectedRange) Is Nothing Then كمال نرجو منكم الشرح كيفية حفظ الملف لكي يكون الماكرو فعال وشكرا Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub casse 2026 .xlsx

صحيح من غير احترام ما راح اشاراك في مشاركاتكم

الاسباب كثيرة منها عدم تفعيل او تمكين المحتوى او لم يتم حفظ الملف بصيغة XLSM-XLSB ارفاقك للملف يختصر الوقت ويحدد ما السبب

شكرا اخي لكن عندما ادخل كود ماكرو في الملف واغلق الملف وعند فتح الملف لا يعمل ما الحل اخي

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

السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا الفاضل عبدللرحيم طريقة ادخال النطاقات للكود Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Union( _ Range("E10:I10"), _ Range("E13:I13"), _ Range("E20:I20"), _ Range("E27:I27"), _ Range("E33:I33"), _ Range("E46:I46"), _ Range("E56:I56"), _ Range("E59:I59"), _ Range("E62:I62"), _ Range("E68:I68") _ ) If Not Intersect(Target, protectedRange) Is Nothing Then Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub

هحاول احط ملف word لشكل التقرير النهائي

جيد

قم بنسخ انواع الخطوط الموجودة في 21 والصقها في 7 والسلام عليكم

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

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

طيب وفالحاله الثانيه ايه اقتراحك لاليه العمل او تصوراتك ليها يا هندسه

رجاء مراعاة الصور التي ترفعها في فيديوهاتك

انا فقط مجرد طويلب علم هاو لا اكثر ولا اقل من ذلك ولو صادفت اجابتى الحل الصحيح او النتيجة المرغوبة فهو فقط فضل الله تعالى لا اريد اى بيانات حقيقية انا فقط اريد الهيكل ومن اجل ذلك طلبت الاطلاع على الملف لان الاجابة تحتمل طريقتين تعديل على ملف مرفق او انشاء التقرير بشكل يماثل ويحاكى شكل الملف ولا يتم الاعتماد فى هذه الحالة على اى وسيط خارجى ولانه كما تعلمت من اساتذتى العظماء ان شطر الجواب هو فهم السؤال فالمعطيات الموجودة والمجرات المطلوبة تعد جزء اصيل من بنيان السؤال ان كنت تريد انت تنفيذ الحل على افضل طريقة تناسبك الحل يتمثل فى نقطة واحدة من اثنتان فلتختر ما يناسب متطلباتك 1- تعديل على ملف ورد مرفق بفتح المف وارسال البيانات 2- انشاء التقرير بشكل يماثل ويحاكى شكل الملف ولا يتم الاعتماد فى هذه الحالة على اى وسيط خارجى وفى النهاية : الخيار الثاني هو الأصح — إنشاء التقرير داخل الاكسس بشكل يحاكي الوثيقة الأصلية ليه مش الخيار الأول (Word)؟ الاعتماد على Word كوسيط معناه: تبعية خارجية — لو Office اتحدث أو تغير مسار الملف الكود بيتكسر - على الرغم من اننا ممكن نحل المشكلة دى بفكرة برمجية بطء في الأداء — فتح Word من Access بيأكل resources وبيحتاج وقت مشاكل Automation — غير مستقر خصوصا على أجهزة مختلفة أو بيئات 32/64-bit مختلفة مفيش تحكم حقيقي — لو حد عنده Word مختلف أو مش مفعل الكل بيقف الملف بيفضل مفتوح أحيانا ويعمل تعارض مع المستخدمين التانيين تقرير الاكسس = القرار الاستراتيجي الصح للمشروع ده تحديدا للاسباب الاتية: متعدد المستخدمين فيه صلاحيات وأدوار فيه ختم رقمي لكل شخص محتاج تتبع وبحث لاحقا الجهد في بناء التقرير لمرة واحدة يستاهل مقارنة بمشاكل Word Automation المتكررة

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

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

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

ياريت لو فى امكانية من مرفق ملف 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

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

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

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

اين الملف

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