مطلوب تعديل على كود إخفاء و إظهار القوائم و أشرطة الأدوات

[أيسم إبراهيم]

السلام عليكم و عيد سعيد

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

أرجو المساعدة و جعل الكود يوثر في الملف الذي به الكود فقط.

_____.rar جزاكم الله خيرا

:angry:

[احمدزمان]

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

كل عام وانتم بخير

اخي الفاضل

انت تعلم ان جميع اشرطة الأدوات مرتبطة بالإكسل نفسة وليست مرتبطة بالملفات المعمولة في الإكسل

لذلك يوجد حل آخر لتخطي هذه المشكلة التي تمر بها

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

وهو

Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Application

.DisplayFullScreen = False

.CommandBars("Worksheet Menu Bar").Enabled = True

.CommandBars("Standard").Visible = True

.CommandBars("Formatting").Visible = True

.CommandBars("Visual Basic").Visible = False

.CommandBars("Drawing").Visible = True

.DisplayFormulaBar = True

.DisplayStatusBar = True

End With

Sheets("sheet1").[AD1] = False

Sheets("sheet1").[AE1] = "ÅÎÝÇÁ ÇáÞæÇÆã æÃÔÑØÉ ÇáÃÏæÇÊ"

End Sub

[أيسم إبراهيم]

السلام عليكم أستاذ : أحمد

عيد سعيد و كل عام و أنتم بخير

جزاك الله خيرا على الرد و لكني لا أفهم ما معنى الجزءالتالي من الكود

Sheets("sheet1").[AE1] = "ÅÎÝÇÁ ÇáÞæÇÆã æÃÔÑØÉ ÇáÃÏæÇÊ"

و لو كنت أريد أن يفتح الملف على وضعية الإخفاء ماذا أفعل؟؟

جعله الله في ميزان حسناتك

أيسم إبراهيم

تم تعديل ديسمبر 11, 2008 بواسطه aysam

[احمدزمان]

لا اعلم معنى هذا السطلا من الكود

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

و لو سمحت توضح معنى ((وضعية الإخفاء)) التي تريدها

مع التحية

[أيسم إبراهيم]

السلام عليكم أستاذ : أحمد

شكرا على اهتمامك

المقصود بـ ""وضعية الإخفاء"" أن يفتح الملف على وضع أن تكون القوائم و أشرطة الأدوات مخفية دون تدخل من المستخدم

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

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

[احمدزمان]

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

كل عام وانتم بخير

اخي الفاضل

في الماكرو الموجود عندك لإخفاء اشرطة الأدوات

تقوم بتغيير السطر الأول

من

()اخفاء SUb

الى

Sub auto_open()

والذي سوف يقوم بتشغيل الماكرو هذا تلقائيا

في كل مرة يتم فيها تشغيل الملف

مع التحية

[أيسم إبراهيم]

السلام عليكم أستاذ : أحمد

شكرا على اهتمامك

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