خالد القدس

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

كود اكثر من رائع بس لما استخدمته هكذا ActiveWorkbook.xlShared بيجيب رسالة لحفظ الملف اذا كان اسم الملف هو 2021 ومسار حفظه هو C:\Users\kj\Desktop\WOW كيف يكون الكود بحيث ما يجيب رسالة حفظ مع خالص الشكر والتقدير وجزاك الله الجزاء وزادك من فضله

الاساتذة الاجلاء ..السلام عليكم ورحمة الله , ان شاء الله الجميع بخير وعلى احسن حال ..تعلمت منكم الكثير فجزاكم الله خير الجزاء وارجو المساعدة في هذا الكود الذي يقوم في البداية بالغاء تفعيل مشاركة الملف --- والمطلوب اعادة تفعيل المشاركة في نهاية الكود لو امكن Sub akhq() ActiveWorkbook.ExclusiveAccess Sheets("Data").Select Cells.Select Selection.EntireColumn.Hidden = False Columns("A:B").Select Columns("A:C").Select Selection.EntireColumn.Hidden = True Columns("F:O").Select Selection.EntireColumn.Hidden = True Columns("Q:U").Select Selection.EntireColumn.Hidden = True Range("P2").Activate End Sub

صباح الخير .. تقبل الله الصيام وصالح اعمال اظن ان افضل طريقة ممكنة حتى الان هي اخفاء الفورم قبل المعاينة واستعادة الشو بعد المعاينة للمحافظة على حمايته للصفحة من التعديل في حضرته مع تمكين المستخدم من اغلاق المعاينة قبل الطباعة بالزر لأنه في حالة جعل خاصية ShwoModal في وضع True والفورم في حالة شو لن يستطيع المستخدم من إغلاق المعاينة الا عن طريق الكيبورد ولكن لهذه الطريقة عيبين الاول الفورم يتأخر قليلا للعودة لحالة الشو من الاخفاء خاصة اذا كان الفورم مليان بالتبويبات والمحتويات .. والثانية بعد عودة الفورم للشو بعد الاخفاء لا ينفذ أسطر الكود الموجودة بعده إلا بعد اغلاق الفورم .. ولتلافي ذلك يجب جعل سطر عودة الفورم للشو آخر سطر في الكود .. لذلك لو أمكن تغيير خاصية ShwoModal بالكود كان أسهل وأكثر مرونة .. ولا زلت أتعشم في أنامل أساتذتنا الخبراء السحرية جزاهم الله عنا خير الجزاء الملف بعد تفعيل اخفاء الفورم واستعادته في نهاية الكود نتيجة3.rarنتيجة3.rarنتيجة3.rarنتيجة3.rar نتيجة3.xlsm

مساء الخير ... الأساتذة الاجلاء تقبل الله صيامكم وقيامكم .. ونفع بعلمكم البلاد والعباد ارجو كريم عونكم في تغيير خاصية ShwoModal من False الى True أو العكس بالكود لو أمكن في الملف المرفق نتيجة2.xlsm

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

السلام عليكم ورحمة الله كل عام وانتم بألف خير .. ورمضان كريم ... أعاده الله علينا جميعا بالخير والقبول والبركات أساتذتي الأجلاء بحثت كثيرا عن كود لتعيين خاصية ShwoModal في الفورم الى False قبل معاينة الطباعة ثم اعادتها الى True بعد المعاينة ولكن لم أوفق ارجو المساعدة إن كان عمل ذلك ممكن والفورم قيد التشغيل وجزاكم الله خيرا وقد جربت هذا الكود ولكنه لم يفلح UserForm2.ShwoModal = False ActiveWindow.SelectedSheets.PrintPreview UserForm2.ShwoModal = True

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

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

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

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

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

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

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

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

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

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

السلام عليكم أستاذتنا القديرة أم عبدالله (حميراء المنتدى) ترقية مستحقة بجدارة ألف مليوووووون مبرووووك وإلى الأمام دائما

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

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

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

السلام عليكم اللهم آمين قلوبنا معكم أستاذ رجب وأحسن الله عزانا جميعا

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

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

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