مشكلة في ظهور ورقات العمل

[لزهر مدلل]

السلام عليكم

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

للعلم عند غلق الملف تخرج رسالة حفظ التغييرات مع أنني لم أقم بأي تعديل و لاحضت بمجرد خروج الرسالة إختفاء ورقات العمل في الأسفل

CALCUL RETRAITE.rar

[naderwatfa]

تفضل أخي الملف بعد إزالة المشكلة

قمت فقط بمسح هذا الكود من الموديول

Sub Auto_close()

Activewindow.DisplayWorkbookTabs =False

End Sub

هذا الكود هو الذي يخفي أسماء الأوراق بعد غلقه كل مرة

الملف في المرفقات

CALCUL RETRAITE2.rar

تم تعديل أكتوبر 4, 2010 بواسطه naderwatfa

[أبوعبد الله]

أخي العزيز

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

ما قمت به هو تعديل بهذا الكود ليظهر لك رسالة تحدد فيها رغبتك في إظهار أو إخفاء علامات التبويب ، وإن كنت تريد أن تبقى العلامات ظاهرة دون الأمر بالكود فقم بحذفه من محرر الفيجول بنقرة مزدوجة على علامة THISWORKBOOK وقم بحذف الكود التالي :

Sub Auto_close()

On Error Resume Next

WSTB = MsgBox(" YES " & "ÅÐÇ ÃÑÏÊ ÇáÍÝÇÙ Úáì ÙåæÑ ÚáÇãÇÊ ÊÈæíÈ ÃæÑÇÞ ÇáÚãá ÅÖÛØ " & vbNewLine & " NO " & " æÅÐÇ ÃÑÏÊ ÅÎÝÇÁ ÚáÇãÇÊ ÊÈæíÈ ÃæÑÇÞ ÇáÚãá ÅÖÛØ ", vbYesNo, "ÊÍÏíÏ æÖÚ ÅÙåÇÑ Ãæ ÅÎÝÇÁ ÚáÇãÇÊ ÊÈæíÈ ÃæÑÇÞ ÇáÚãá")

Select Case WSTB

Case vbYes

ActiveWindow.DisplayWorkbookTabs = True

Case vbNo

ActiveWindow.DisplayWorkbookTabs = False

End Select

End Sub

رجاء الاطلاع على المرفق

تحياتي

أبو عبدالله

عفواً لم انتبه لرد أخي نادر حيث كنت أرد في نفس التوقيت وله الشكر

WORKSHEETS TAB SET.rar

[لزهر مدلل]

مشكورين إخوتي الكرام على هذه المجهودات

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

[naderwatfa]

الشكر لك أخي " أبو عبد الله "

شرحك للكود ممتاز

بارك الله فيك

و لا شكر على واجب أخي medellel

تم تعديل أكتوبر 4, 2010 بواسطه naderwatfa