إبراهيم محمد

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

بسم الله الرحمن الرحيم الاستاذة الافاضل / هذا الكود من ثمرة ما اتعلمه منكم فى هذا المنتدي العريق وكم اتمنى ان اصل ولو على واحد من مئه مما لديكم من علم فزادكم الله علما ونفع بكم الجميع باذن الله ودائما نتقدي بكم وعلى الدرب نسير فى طلب العلم باذن الله تعالى بعد اذنكم اقدم هذا الكود المتواضع و الذى يعطى فكرة فى جزئين وهى نسخ صفحات المستند فى ملفات منفصله والجزء الثاني هو جلب صفحات من ملفات منفصله وتجميعها فى ملف واحد ومرفق الملف مع شرح بسيط معه ولكن نبذة عن الفكرة هو ان يتم وضع هذا الملف فى فولدر خاص به وذلك للاتى فى حاله نسخ الصفحات الى ملفات منفصله فانه يقوم بحفظها فى نفس مسار الملف الاصلى اى نفس الفولدر الذى به الملف وفى حاله جلب صفحات من ملفات متعددة فانه يبحث فى الفولدر الموجود به هذا الملف ومرفق فولدر به الملف الاصلى تحت اسم test وباقى الملفات بالارقام ارجو ان يكون الشرح واضح وفى حاله الاستفسار فان شاء الله نقوم بتوضح ما هو مطلوب والله الموفق واتقدم بالشكر للاساتذة وعلماء هذا المنتدى على ما بذلوة ويبذلوة من جهد للاعطاء العلم والمساعدة دون تردد او تاخر ومهما قلت فهو اقل مما تستحقون test.rar

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

()Sub merg1() Range("a1:c5").MergeCells = True End Sub الاخ العزيز / جرب هذا الكود تحياتي

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

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

للرفع

فورم جميل وفكرة حلوة شكرا عليها وبارك الله فيك

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

الاخ الفاضل / ashraf_6770 اشكر لك مرورك الكريم وكلامك الطيب وفى الحقيقه لولا هذا المنتدى وتعاون الاساتذة الافاضل ما كان هذا العمل فلقد انضممت لهذا المنتدى وانا لا اعرف شيئا فى برمجه الاكسيل وحاليا اخطو اولى خطواتى فيه ولا زلت طالب علم فى اول الطريق استفيد وانهل من فكر وعلم الاساتذة العظام فى هذا المنتدى العريق واتمنى ان اكون يوما ولو واحد من مئه من علم هؤلاء الاساتذة , اللهم بارك لهم وزدهم من فضلك وحاليا طرحت مشاركه لتطوير جزئيه اخرى فى البرنامج طالبا فيها مساعدة الاساتذة الافاضل وان شاء الله عندما تكتمل جميع جوانب التطوير التى اعمل على ضمها للبرنامج سوف اطرحه كاصدار ثالث له ليستفيد منه الجميع باذن الله والسلام عليكم ورحمه الله وبركاته

للرفع

بسم الله الرحمن الرحيم الاساتذة الافاضل / المحترمين برجاء المساعدة فى عمل تعديل فى الصلاحيات الخاصه بالصفحات وهى كالتالى الوضع السابق : كانت توجد لكل صفحه 3 صلاحيات عند فتح نموذج الصلاحيات وهى ( مشاهدة وتعديل - مشاهدة فقط - مخفى ) الوضع الحالى : تم زيادة صلاحيه اخرى وهى مدخل بيانات والهدف منها انه عند اعطاء صلاحيه مشاهدة وتعديل فانها تزيل الحمايه كليه من الصفحه اما مشاهدة فقط فانها تضع حمايه على الصفحه وبالتالى من يدخل على هذة الصلاحيه لا يحق له التعديل او الاضافه فى البيانات ولكن تواجهنا هنا مشكله انه فى بعض الصفحات توجد معادلات ومطلوب فقط بعض الاعمدة تكون محررة لادخال البيانات والباقى مغلق وايضا تكمن المشكله فى اختلاف تلك الاعمدة من صفحه الى اخرى لذلك كفكرة مقترحه قمت بوضع حرف فى اعلى العمود المراد ادخال البيانات به بحيث يمر الكود على هذا الصف والعمود الذى يجد به الحرف يقوم بتحريره مع العلم بان ذلك يكون فقط فى الصفحات المحدد لها خاصيه مدخل بيانات كلمه السر لدخول ( الدعم الفنى - كلمه السر 111 ) وجزاكم الله خيرا صلاحيات المستخدمين -2-5.rar

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

بسم الله الرحمن الرحيم الاساتذة الافاضل فى المرفق كود قام بكتابته الاستاذ العلامه / عبد الله باقشير فى ترحيل الصفحات الموجودة فى المستند الى ملفات منفصله والمطلوب هو اضافه فى الكود تعمل على حذف العمودين b , c من الملفات الناتجه مع ترك النسخه الاصليه كما هى هذا وتفضلوا بقبول وافر الاحترام والتقدير ترحيل صفحات الى ملفات منفصله.rar

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

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

ما شاء استاذنا الفاضل وعالمنا الجليل / عبد الله باقشير لقد قمت بتجربه الكود وهو يعمل بكفاءة عاليه بارك الله فيك وجزاك الله خيرا ودائما نتعلم منكم كل جديد باذن الله تعالى

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

وهذا هو المرفق بعد اضافه الكود له ترحيل صفحات الى ملفات منفصله2.rar

الحمد لله تم التوصل الى هذا الكود برجاء من الاساتذة الافاضل تقيمه او التعديل عليه Private Sub Cmd_action_Click() With Me.ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set newwkbk = Workbooks.Add Flname = ThisWorkbook.Sheets(i + 1).Name ThisWorkbook.Sheets(i + 1).Copy Before:=newwkbk.Sheets(1) newwkbk.Sheets("Sheet1").Delete newwkbk.Sheets("Sheet2").Delete newwkbk.Sheets("Sheet3").Delete newwkbk.SaveAs ThisWorkbook.Path & "\" & Flname ActiveWorkbook.Close End If Next End With Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "Êã ÍÝÙ ÇáÕÝÍÇÊ ÇáãÍÏÏÉ Ýì ãáÝÇÊ ãäÝÕáå " End Sub

الاخ الفاضل / نور محمود يمكنك الاطلاع على الرابط ادناة فيه دورة للاستاذ الفاضل / عبد الله المجرب يشرح فيها اساسيات البرمجه فى الاكسيل وهى مفيدة جدا http://www.officena.net/ib/index.php?showtopic=39323

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

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

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

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