خالد القدس

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

الف شكر على المشاركة التى شفت ووصفت الدواء  واوضحت الدواء  

كود اكثر من رائع   

بس لما استخدمته  هكذا   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

السلام عليكم ورحمة الله  وبركاته   

ما شاء الله  استاذ مجدى دائما ابداعاتك مكتاملة  

نفع الله بك وأحسن لك الجزاء

ألم أقل لكم  

العمل المرئي يشهد به الجميع  

هنيئا لكم أستاذ ياسر خليل  هذه الشهادات التي صدقت وصادفت أهلها

حفظكم الله ورعاكم  ..  وإلى المزيد دائما

والله ليكم وحشة ما بعدها وحشة  

أستاذ ياسر  ...   كيف حالك وصحتك والأهل جميعا 

ان شاء الله على أحسن حال وأتم عافية    

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

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

السلام عليكم ورحمة الله وبركاته  

كل سنة والجميع طيبين ورايقين 

حفظكم الله ورعاكم  

ألف شكر أستاذ مجدي ... في الحقيقة دا ابداع مترامي الاطراف 

وشرح وافي ومميز   بارك الله فيك وجزاك خيرا

((  انا لله وانا اليه راجعون ))

اللهم أكرم نزله وتغمده بواسع رحمتك

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

اللهم انا نشهد له بخير فاقبل شهادته فيه

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

والهم أهله وزويه الصبر وحسن العزاء

(( يا أيتها النفس المطمئنة ارجعي الى ربك راضية مرضية * فادخلي في عبادي وادخلي جنتي  ))

السلام عليكم ورحمة الله

أحبابي الكرام جميعا  لكم من القلب كل التحايا والاحترام

نغيب ونرجع ونجدكم أكثر نشاطا وإبداعا ، ما شاء الله لا قوة إلا بالله

جزاكم الله كل خير وزادكم وأرضاكم

السلام عليكم

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

بارك الله فيك ونفع بعلمك وأجزل لك الثواب

السلام عليكم

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

لي طلب بسيط لو أمكن وهو شرح كيفية التعديل في ملف الفلاش ليصبح بشكل الصورة التالية

وكذلك هل يمكن ان تتغير اسماء المواد تلقائيا مع تغير اسم التلميذ

السلام عليكم 

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

بارك الله لك في علمك وعملك ونفعك بهما في الدارين

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

مع عظيم الشكر والتقدير 

السلام عليكم 

أستاذ الضاحي  ابداع تراكمي مميز

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

أجزل الله لكم الثواب ونفع بعلمكم البلاد والعباد

السلام عليكم

أستاذتنا القديرة أم عبدالله (حميراء المنتدى)   

ترقية مستحقة بجدارة 

 ألف مليوووووون مبرووووك

وإلى الأمام دائما 

السلام عليكم ورحمة الله وبركاته

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

وزادك من فضله

السلام عليكم

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

وفعلا ملك ملوك الحركات الاحترافية

بارك الله فيك وجزاك خيرا

السلام عليكم 

استاذ شوقي

عمل احترافي متقن

كما قال أستاذ جمال اعمالك كلها تتميز بخصوصة ابداعية مميزة

أثابك الله في الدارين خير الثواب  

السلام عليكم 

 

بسم الله الرحمن الرحيم

 

" وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُمْ مُصِيبَةٌ قَالُوا إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ أُولَئِكَ عَلَيْهِمْ صَلَوَاتٌ مِنْ رَبِّهِمْ وَرَحْمَةٌ وَأُولَئِكَ هُمُ الْمُهْتَدُونَ "

 

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

اللهم آمين

قلوبنا معكم أستاذ رجب 

وأحسن الله عزانا جميعا 

السلام عليكم 

أستاذي الفاضل ضاحي 

أعمالك دائما  متقنة ومميزة 

بارك الله فيك و جزاك الله خيرا

السلام عليكم 

عمل ابداعي غاية في الروعة والمواكبة 

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

والى العلا دائما لهذا المنتدى التعليمي المميز

السلام عليكم 

أستاذ الأجيال إبداع بلا حدود  كما عودتنا دائما 

أجزل الله لك الثواب في الدارين