عاجل حل مشكلة التعارض بين الاكواد

[zarouki2000]

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

ارجو المساعدة العاجلة فى هذا الطلب

لدى ملف اكسل به كود لاخفاء و استعادة شرائط القوائم و خلافه كما بالاسفل وضعته ف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

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

[zarouki2000]

بالله عليكم احتاج مساعدة عاجلة قبل صلاة الجمعة

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

[أبو أنس حاجب]

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

أخي الفاضل حفظكم الله

لم أجد أي تعارض بعد تجربة الكودين.

المرفق:

Book1.rar

أبو أنس

[zarouki2000]

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

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

المشكلة انى مش قادر ارف الملف اللى شغال عليه علشان يتم تصحيح الخطأ لان حجمه 7 ميجا

ارجو ان تتقبل شكرى و اعتذارى لكثرة الاسئلة

[أبو أنس حاجب]

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

أخي الفاضل حفظك الله

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

والله خير موفق ومعين.

أبو أنس

[zarouki2000]

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

أخي الفاضل حفظك الله

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

والله خير موفق ومعين.

أبو أنس

الاخ الفاضل ابو انس شكرا لاهتمامك واعانك الله على فعل الخير

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

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

المشكلة ان المفترض ان الكود يجبر على بدء الملف بالصفحة MAING وهذا ما اريده

لكن للاسف يذهب الى الصفحة bb2010

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

جزاك الله كل الخير انت و مرتادى المنتدى الكرام

X.zip

تم تعديل نوفمبر 23, 2012 بواسطه zarouki2000

[رجب جاويش]

بعد اذن أخى الحبيب / أبو أنس حاجب

سبب الخطأ فى السطر

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

وبالتالى يجب حذف هذا السطر

[zarouki2000]

الاخوة الافاضل ابو انس و الاخ رجب جاويش بارك الله فيكما وزادكم من العلم الوفير

تم تنفيذ الاكواد بنجاح

اسمحولى ان اطمع فى مزيد من علمكما كيف يمكن لملف معمول له شير ان يمنع نقله او حذفه او نسخه

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

بارك الله فيكما

[أبو أنس حاجب]

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

أخي الفاضل حفظك الله

إذا كان المقصود بالـ شير هو المشاركة للملف بوضعه في فهرس المستندات المشتركة في الشبكة فأظن أن ذلك ممكن.

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

تقبل تحياتي وشكري لردك العطر.

أستاذي وسيدي الفاضل رجب جاويش حفظكم الله

تقبل أحترامي وتقديري.

والله خير معين

أبو أنس