علي السحيب قام بنشر مارس 2, 2005 مشاركة قام بنشر مارس 2, 2005 السلام عليكم ورحمة الله وبركاته، أشكر لجميع أعضاء المنتدى المجهود الكبير الذي يقومون به من أجل الرقي بالمنتدى، لقد قمت بتصميم عدة برامج باستخدام برنامج الإكسل، وفي كل برنامج قمت بوضع صفحة رئيسية له وبها وصلات للصفحات الأخرى الموجودة في نفس البرنامج .. ولكن المشكلة التي تواجهني هي أنني عندما أقوم بفتح الملف فإنه يفتح على الصفحة التي كنت عليها عند الحفظ الأخير بينما أنا أريد البرنامج أن يفتح في البداية على الصفحة الرئيسية له. ولقد أطلعت على عدة برامج من تصميم المبدع حسام نور وغيره من أعضاء المنتدى وبها جميع ما أبحث عنه من فتح البرنامج على صفحة معينة وإلغاء لأشرطة الأدوات حتى تعطي مساحة أكبر على الشاشة للمستخدم. لذا أرجوا منكم التكرم بوضع الكود الخاص بهذا الغرض، وشكراً جزيلاً. رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر مارس 2, 2005 مشاركة قام بنشر مارس 2, 2005 (معدل) أهلاً بك أخي بيننا وإن شاء الله تجد الفائدة والمساعده بالمنتدى .. أليك الكود الخاص بإجبار الأكسيل على الذهاب لصفحه معينه عند تشغيل الملف Private Sub Workbook_Open() Sheets("1").Activate End Sub ولوضع الكود بالملف قم * بالضغط على Alt+F11 *ضعط الكود داخل Tis WorkBook * ولا تنسى تغيير أسم الصفحه في الكود لأسم الصفحه المراد الفتح عليها * وستلاحظ هنا على سبيل المثال أسم الصفحه ( 1 ) وشكراً تم تعديل مارس 2, 2005 بواسطه حسام نور رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر مارس 2, 2005 مشاركة قام بنشر مارس 2, 2005 أما بالنسبه لإلغاء شريط الأدوات عند الفتح فستجد في المرفقات ( 2 ) Module - الأول وأسمه Autoopen ويقوم بإخفاء أشرطة الأدوات عند الفتح - الثاني أسمه Autoclose ويقوم بإعادة إظهار شريط الأدوات عند إغلاق الملف وذلك لكي لا يختفي شريط الأدوات كلياً عند فتح أي ملف أكسيل آخر - ولإدراجهما بالملف لديك أتبع الآتي * أضغط Alf+F11 * من أعلى الشاشه يسار *قم بالضغط بزر الماوس الأيمن على Microsoft Excel Object أو على Modules * الآن أختر Import File * الآن أختر موديول Autoopen * ستجده الآن يظهر برقم وليس بأسم * لا تنسى تغيير أسم الصفحه التي سيفتح عليها الملف مثلما فعلت سابقاً وستجد ذلك بأول سطر بالكود * كرر العمليه لأستيراد موديول Autoclose * ولكن مع هذا الموديول لست بحاجه لأي تغييرات وشكراً Auto.rar رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر مارس 2, 2005 الكاتب مشاركة قام بنشر مارس 2, 2005 ألف شكر أخي حسام على الرد السريع والمجهود الرائع رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر مارس 2, 2005 الكاتب مشاركة قام بنشر مارس 2, 2005 السلام عليكم ورحمة الله وبركاته، أخي العزيز حسام .. لقد قمت بوضع الكود الذي زودتني به من أجل جعل ملف الإكسل يفتح على صفحة معينه .. وقد قمت بالوقوف على This workbook ووضعت الكود هناك .. ولكن بعد إغلاق الملف ومعاودة فتحه وجدته لا يعمل نهائياً .. فأرجوا منك شرح تفصيلي بكيفية وضع الكود في المكان المطلوب .. وشكراً رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 3, 2005 مشاركة قام بنشر مارس 3, 2005 السلام عليكم ورحمة الله وبركاته، أخي العزيز حسام .. لقد قمت بوضع الكود الذي زودتني به من أجل جعل ملف الإكسل يفتح على صفحة معينه .. وقد قمت بالوقوف على This workbook ووضعت الكود هناك .. ولكن بعد إغلاق الملف ومعاودة فتحه وجدته لا يعمل نهائياً .. فأرجوا منك شرح تفصيلي بكيفية وضع الكود في المكان المطلوب .. وشكراً <{POST_SNAPBACK}> اخي العزيز اولا : افتح ملف الاكسيل - افتح الورقة الثانية اذا ترغب ان تظهر عند فتح الاكسل ثانيا : انت الان في الورقة الثانية قم بالضغط على alt+f11 لفتح محرر الفجوال بيسك اضغط على ورقة 2 (ورقة 2) تنفتح لك صفحة ضع هذا الكود Private Sub Workbook_Open() Sheets("1").Activate End Sub ثم غير الصفحة الى رقم 2 ثالثا : اغلق هذه الصفحة بالاشارة X ثم بعد ذلك اضغط على ايقونة الاكسل والتى تجدها في اعلى اليسار وبعد فتح صفحة الاكسل اغلق البرنامج واحفظه رابعا : عند فتح برنامج الاكسل سوف تلاحظ جات عندك الصفحة رقم 2 وبالله التوفيق رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر مارس 3, 2005 مشاركة قام بنشر مارس 3, 2005 - أخي الكريم - هل قمت بتغيير أسم الصفحة المراد الذهاب لها عند الفتح داخل الكود ؟؟؟ تأكد من أنك غيرت أسم الصفحه في أور سطر في الكود .. وستجد أسم الصفحه في الكود رقم 1 قم بتغييره الي أسم الصفحه الموجوده لديك بالملف وأغلق الملف مح حفظ التغيرات وإن شاء الله سيفتح الملف على هذه الصفحه وشكراً رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر مارس 3, 2005 الكاتب مشاركة قام بنشر مارس 3, 2005 السلام عليكم، بعد تعقيبي على الموضوع الذي جاء فيه بأن الكود لم يعمل لدي، ذهبت إلى محرر الفيجوال بيسك للمراجعة وأكتشفت أنني لم أقم بوضع الكود داخل This workbook وهذا ما جعل الكود لا يعمل. شكراً لتعاونكم على كل حال رابط هذا التعليق شارك More sharing options...
triste قام بنشر فبراير 10, 2006 مشاركة قام بنشر فبراير 10, 2006 لم أستطع تنفيذ هذا الأمر مطلقاً ، و أصابنى إحباط شديد فقد وضعت الكود مرة فى الشاشة البيضاء التى تنفتح بعد الضغط مرتين على إسم ورقة العمل الموجود إلى اليسار تحت المجلد microsoft excel objrcts و قمت بتغيير رقم واحد فى الكود إلى إسم ورقة العمل و أغلقت محررر الفبجوال بيزيك و أغلقت كتاب العمل بعد حفظه و عندما فتحت وجدت الأمر لم يتغير ، و كررت نفس الخطوات السابقة و لكن مع وضع الكود فى this work book تحت نفس المجلد و كررت نفس الخطوات . و أيضاً لم يتغير الأمر !!!!!!!!!!!1 رابط هذا التعليق شارك More sharing options...
triste قام بنشر فبراير 10, 2006 مشاركة قام بنشر فبراير 10, 2006 (معدل) أخيراً ضبط معى ، و كان السبب هو وجود كود آخر (Message Box) موضوع فى this work book أيضاً من قبل ، و قد احترت فيما يجب أن أفعله بهذا الكود (الموجود بالمشاركة هنا)فى بادئ الأمر !!!!!!!!!!! فتارة قمت بعمل new module ووضعت بها الكود .... و لم ينجح الأمر و تارة قمت بلصقه أسفل الكود الموجود أصلاً ........ و لم ينجح أيضاً الأمر . إلى أن هدانى تفكيرى أنه ربما لا يجوز وجود كودين بهما سطر البداية Private Sub Workbook_Open() و سطر النهاية End Sub أسفل بعضهما البعض ، حتى لا تتكرر هذه الأوامر ( و كان هذا مجرد استناد للمنطق من جانبى ليس أكثر) فقمت بحذف هذه التكرارات ، و أصبح االكود لدى كالتالى : Private Sub Workbook_Open() MsgBox (" text of message") Sheets("name of the selected sheet to open at start").Activate End Sub وشكراً لجميع الأخوة ، المشرفين و الأعضاء ممن شاركوا بهذا الموضوع تم تعديل فبراير 10, 2006 بواسطه triste رابط هذا التعليق شارك More sharing options...
الردود الموصى بها