ابو حمادة

استاذي الفاضل ابو البراء الملف عندي له تاريخ انتهاء واريد وضع التاريخ بداخل خليه ( A1 ) بحيث اذا تخطي تاريخ الانتهاء يتم تغيير كلمة السر للدخول وطبعا من السهل لاي حد يأخر التاريخ بالجهاز ووقتها هايفتح معه الملف عادي لذلك لو من الممكن عمل كود يضبط توقيت الجهاز عند فتح ملف الاكسل لتجنب العبث من الاخرين بتاريخ الجهاز اتمني تكون الفكره وضحت

السلام عليكم اخى ابو البراء في اى خليه استاذي الفاضل المهم اين الكود

هناك سبب بالفعل لعمل الكود من خلال الفورم وليس من نافزة المعاينه الملف عندي يخفي كل القوائم وكل ازرار الاكسل ولذلك عند عمل معاينة لا يظهر زر امر اغلاق المعاينه ولذلك اريد تفعيل الكود من خلال الفورم لاتمكن من عمل معاينه او اغلاقها من خلال الفورم

تمام هذا الكود ولكن عند عمل المعاينه لا يقبل الفورم الضغط ثانيا علي المفتاح ولا يغلق المعاينه

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

تسلم حبيب قلبي استاذ ياسر هذا المطلوب

هي مجرد فكره في مخى يعنى لو اتعمل للملف application.visible=false

شكرا جدا اخي الكريم بالفعل ظهر رساله عند تغيير الاسم عمل اكثر من رائع بجد ولكن لو كان هناك طريقه افضل بحيث لا يفتح الملف نهائيا لان هذا الكود بالرغم من انه جميل جدا ويؤدي الغرض ولكن يفتح الملف ثم تظهر الرساله ثم يغلق لو امكن منع فتح الملف نهائيا وظهور الرساله عند الفتح يكون الكود افضل واروع لك مني تحياتي هناك موضوع اخر اتمني غدا عند فتح النت ارسل لي رساله ارسلك ملف به استفسار اخر ولك مني الف تحيه وتقدير انى احبك في الله

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

اريد اضع اسم ملف الاكسل في الخلية والكود يعمل بناء علي الاسم الذي اضعه في الخليه

انت موجود استاذ KHMB

شكرا اخي الكريم ولكن انت لم تفهم قصدي انا اعي جيدا ما قلته واعلمه تمام ولكنى اريد تغيير الكود بحيث يعمل الكود بناء علي الاسم الموجود بداخل الخليه ( A1 ) بمعني اذا تغير اسم الملف واختلف عن الاسم الموجود بداخل الخليه لا يفتح الملف بمعني ادق اريد تغيير الكود بهذا الشكل MyFlName = Sheets("ورقة1").Range("A1").Select يعني الكود يشوف الاسم الموجود بداخل الخليه لو كان نفس الاسم يفتح ولو متغير عن الاسم الموجود بداخل الخليه لا يفتح الملف اتمنى تكون فكرتى وصلت

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الكرام ارجو الدخول للمرفق ومساعدتى في عمل الملطلوب ولكم مني جزيل الشكر والاحترام TEST-1.rar TEST-1.rar TEST-1.rar

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

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

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاساتذه الكرام كل عام وانتم بخير اريد تعديل كود لحفظ المستند بناء علي الاسم المدخل في TextBox2 ويتم تحديد مكان الحفظ بداخل الدريف ( D ) بداخل فولدر اسمة ( احمد ) ويتم اضافة التوقيت مع الاسم لعدم تكرار تشابة الاسماء لعدم تكرار تشابة الاسماء او اضافة شئ اخر بدل التوقيت يمنع تشابة الاسماء ولا يعمل الملف اذا تم تغيير اسم الفولدر او دريف الـ D مرفق ملف للتعديل اتمني ان يكون الموضوع سهل تعديل كود للحفظ.rar

الصـقر شكرا اخي الفاضل هو فعلا حل مناسب ولكني لا اقدر علي فهمه بسبب كبر حجمة حاولت تطبيقه علي الشيت الاصلي ولم اوفق في تطبيقه ثانيا هذا الكود لم يضع دائرة حول كلمة راسب وانا ملاحظ انه يضع الدائرة الحمراء 2 مع بعض يعنى في عمود الدرجة وعمود التقدير وهنا خطا لان هناك طلاب تكون الدرجه كبيره ولكن التقدير يتعامل علي حساب ثلث الدرجه بمعنى ممكن تلقي طالب واخد درجه اكبر من المجموع ولكن التقدير راسب لانه لم يحصل علي ثلث الدرجه في امتحان الشفوى ولذلك اريد ان الكود يعمل علي عمود الدرجه بناء علي الدرجة ويعمل ايضا علي عمود التقديرات بناء علي (راسب) او (دون مستوى) وشكرا لاهتمامك ومجهودك واتمنى ان اكون قدرت اوضح طلبي لك منى خالص الشكر والاحترام

ربنا يعزك ويقدرك وجزاك الله خيرا اخى ياسر

الله ينور عليك ويزيدك علما استاذي القدير ياسر خليل أبو البراء بالفعل الكود تمام جزاك الله خيرا واتمني تدخل علي ملف الدوائر الحمرا وتخدمني فيه

استاذي الفاضل قبلتني مشكله عند تطبيق الكود لما اكتب ( سبحان الله ) بالفعل بيتم تنشيط المفتاح ولكن اذا تراجعت ومسحت حرف بيفضل المفتاح نشط بمعني اذا كتبت ( سبحان الله ) ومسحت حرف منها تاني كدا مثلا ( سبحان الل ) بيفضل المفتاح نشط اريد اذا مسحت حرف او مسحتها بعد كتابتها يتم الغاء التنشيط

شكرا ليك اخى الكريم علي ردك مختار حسين محمود هذا هو المطلوب فعلا زادك الله علما ا

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاساتذه اتمنى حد يعدل هذا الكود بحيث يتم تنشيط مفتاح اذا تم كتابة كلمة سبحان الله بداخل TextBox1 ويكون الكزد بداخل حدث TextBox1 وجزاكم الله عنا خيرا Private Sub TextBox1_Change() If Len(TextBox1) = "سبحان الله" Then Command1.Enabled = True End Sub

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الكرام محتاج كود لتحديد صفحة وطباعتها من علي اليوزر فورم وكود اخر يقوم بطباعه عدد الصفحات الموجوده في خليه بمعني هناك خليه ( A4 ) يوجد بها اول صفحة للطباعه يقوم بتحديد صفحات الطباعه من الي من نطاق انا احدده له يعني اذا كانت الخليه من( A4) الي (A5) ومن (A6) الي (A7) يتم طباعه العدد الموجود بداخل الخلايه كما موضح في الملف المرفق ولكم جزيل الشكر كود طباعه.rar

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

السلام عليكم ورحمة الله تعالي وبركاته 16 واحد حملو الملف ومافيش حد رد عليا ولا قال ايه حل المشكله معقوله مافيش حل