zarouki2000 قام بنشر نوفمبر 22, 2012 مشاركة قام بنشر نوفمبر 22, 2012 السلام عليكم ورحمة الله ارجو المساعدة العاجلة فى هذا الطلب لدى ملف اكسل به كود لاخفاء و استعادة شرائط القوائم و خلافه كما بالاسفل وضعته فModule====== this workbook Sub auto_open() Application.WindowState = xlMaximized ' Application.DisplayFullScreen = True ' Application.CommandBars("Full Screen").Visible = False ' Application.CommandBars.ActiveMenuBar.Enabled = False Sheets(1).Select End Sub Sub My_Bars_Back() Application.WindowState = xlMaximized ' Application.DisplayFullScreen = False ' Application.CommandBars("Full Screen").Visible = False ' Application.CommandBars.ActiveMenuBar.Enabled = True End Sub و كود اخر لفتح الملف على ورقة معينة موضوع ف this workbook Private Sub Workbook_Open() Worksheets("mainG").Activate End Sub عند اتلتنفيذ يحدث تعارض ينفذ الكود الاول من دون التانى ارجو المساعدة فى تحقيق الكودين معا رابط هذا التعليق شارك More sharing options...
zarouki2000 قام بنشر نوفمبر 22, 2012 الكاتب مشاركة قام بنشر نوفمبر 22, 2012 بالله عليكم احتاج مساعدة عاجلة قبل صلاة الجمعة بارك الله فيكم وزادكم علما رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 23, 2012 مشاركة قام بنشر نوفمبر 23, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله لم أجد أي تعارض بعد تجربة الكودين. المرفق: Book1.rar أبو أنس رابط هذا التعليق شارك More sharing options...
zarouki2000 قام بنشر نوفمبر 23, 2012 الكاتب مشاركة قام بنشر نوفمبر 23, 2012 الاخ الفاضل ابو انس حاجب بارك الله فيك و اسعد اوقاتك و شكرا جزيلا على التجاوب السريع بعد التجربة حاليا تم تنفيذ الكودين معا و لكن يحدث مشكلة ان الملف بيفتح على الشيت المطلوب البدء به عند الفتح و لكن للاسف يتحول الى شيت اخر بسرعة المشكلة انى مش قادر ارف الملف اللى شغال عليه علشان يتم تصحيح الخطأ لان حجمه 7 ميجا ارجو ان تتقبل شكرى و اعتذارى لكثرة الاسئلة رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 23, 2012 مشاركة قام بنشر نوفمبر 23, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله أذا كان حجمه قبل الضغط 7 ميجا فممكن ضغطه بالوين رار ثم رفعه إلى المنتدى لأنه بعد الضغط سوف يصبح أقل من 1 ميجا وأذا كان حجمه الذي أشرت اليه بعد الضغط ممكن تجزئته بالوين رار أيضاً إلى عدة أجزاء أو حاول أيقاف بعض الاكواد أذا كانت موجودة في الملف علها السبب أو تخفيض حجمه من خلال حذف المعادلات إذا كانت فيه قبل رفعه. والله خير موفق ومعين. أبو أنس رابط هذا التعليق شارك More sharing options...
zarouki2000 قام بنشر نوفمبر 23, 2012 الكاتب مشاركة قام بنشر نوفمبر 23, 2012 (معدل) السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله أذا كان حجمه قبل الضغط 7 ميجا فممكن ضغطه بالوين رار ثم رفعه إلى المنتدى لأنه بعد الضغط سوف يصبح أقل من 1 ميجا وأذا كان حجمه الذي أشرت اليه بعد الضغط ممكن تجزئته بالوين رار أيضاً إلى عدة أجزاء أو حاول أيقاف بعض الاكواد أذا كانت موجودة في الملف علها السبب أو تخفيض حجمه من خلال حذف المعادلات إذا كانت فيه قبل رفعه. والله خير موفق ومعين. أبو أنس الاخ الفاضل ابو انس شكرا لاهتمامك واعانك الله على فعل الخير وجزاك الله خيرا كحل بديل لرفع الملف الذي يتجاوز 4 ميجا حتى بعد ضغطه فرغت اليانات منه و احتفظت بالنسخة الاصلية المشكلة ان المفترض ان الكود يجبر على بدء الملف بالصفحة MAING وهذا ما اريده لكن للاسف يذهب الى الصفحة bb2010 بخصوص الكود الاخر الخاص بملئ الشاشة وازالة شرائط الادوات يتحقق بنجاح من فضلك لو ارشدك الله للحل قولى عملت ايه عاشان اطبقه على الملف الاصلى المحتوى على البيانت جزاك الله كل الخير انت و مرتادى المنتدى الكرام X.zip تم تعديل نوفمبر 23, 2012 بواسطه zarouki2000 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 23, 2012 مشاركة قام بنشر نوفمبر 23, 2012 بعد اذن أخى الحبيب / أبو أنس حاجب سبب الخطأ فى السطر Sheets(1).Select الموجود فى الكود التالى Sub auto_open() Application.WindowState = xlMaximized ' Application.DisplayFullScreen = True ' Application.CommandBars("Full Screen").Visible = False ' Application.CommandBars.ActiveMenuBar.Enabled = False Sheets(1).Select End Sub هو الذى يجعل الملف يذهب الى الصفحة bb2010 وبالتالى يجب حذف هذا السطر رابط هذا التعليق شارك More sharing options...
zarouki2000 قام بنشر نوفمبر 23, 2012 الكاتب مشاركة قام بنشر نوفمبر 23, 2012 الاخوة الافاضل ابو انس و الاخ رجب جاويش بارك الله فيكما وزادكم من العلم الوفير تم تنفيذ الاكواد بنجاح اسمحولى ان اطمع فى مزيد من علمكما كيف يمكن لملف معمول له شير ان يمنع نقله او حذفه او نسخه وجدت كثير من الموضوعات لاخوة افاضل لم افلح فى تطبيقها اتعشم لو تم تطبيقها على الملف المرفق بما لا يتعارض مع الكودين الموجودين بارك الله فيكما رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 24, 2012 مشاركة قام بنشر نوفمبر 24, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله إذا كان المقصود بالـ شير هو المشاركة للملف بوضعه في فهرس المستندات المشتركة في الشبكة فأظن أن ذلك ممكن. ولكن أذا كان المقصود بذلك المشاركة من قائمة أدوات ثم مشاركة في المصنف فأظن أنه غير ممكن (لان الأكواد الخاصه بالأكسيل تعطل عند هذه الخاصية) وذلك حسب بحثي في المنتدى عن ذلك أيضاً إلى أن يصبح ذلك ممكن أو أنه ممكن ولكن لم نصل اليه بعد. تقبل تحياتي وشكري لردك العطر. أستاذي وسيدي الفاضل رجب جاويش حفظكم الله تقبل أحترامي وتقديري. والله خير معين أبو أنس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.