إظهار شيتات مخفية

[أبوبكر مسعودي]

بسم الله الرحمان الرحيم

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

لدي ملف إكسل 2003 محمي و شيتات به مخفية و لم أتمكن من إظهارها

لمن لديه الحل أرجو المساعدة و لكم جزيل الشكر

للأسف الملف حجمه كبير نوعا ما لم أتمكن من إرفاقه

[سليم حاصبيا]

جرب هذا الماكرو

Sub Unhide_Shts()
        For i = 1 To Sheets.Count
            If Sheets(i).Visible = False Then Sheets(i).Visible = True
        Next
 End Sub

 

[أبوبكر مسعودي]

شكرا يا أخي سليم لكن هذا الماكرو لم يفلح في حل المشكل

[سليم حاصبيا]

6 دقائق مضت, أبوبكر مسعودي said:

شكرا يا أخي سليم لكن هذا الماكرو لم يفلح في حل المشكل

جرب هذا الماكرو

Sub Unhide_Shts()
        For i = 1 To Sheets.Count
            If Sheets(i).Visible = False Then Sheets(i).Visible = True
        Next
 End Sub

ربما هذا الافضل

Sub Unhide_Shts()
        For i = 1 To Sheets.Count
            If Sheets(i).Visible = 0 Or Sheets(i).Visible = 2 Then Sheets(i).Visible = True
        Next
 End Sub

 

[أبوبكر مسعودي]

الماكرو الثاني لاجدوى منه أيضا

هذا رابط لتحميل الملف أرجو إيجاد الحل

http://www.mediafire.com/download/317q77zdn3p93h2/CERTIFICAT.xls

تم تعديل يوليو 14, 2016 بواسطه أبوبكر مسعودي
تعديل الرابط

[أبو حنــــين]

السلام عليكم

انظر اخي الصورة

 

Sans titre.rar

[أبوبكر مسعودي]

ألف شكر الأخ أبو حنين

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

 

[ياسر خليل أبو البراء]

بارك الله فيكم إخواني (سليم وأبو حنين)

شر البلية ما يضحك .. بالفعل واجهتني نفس المشكلة في بدايات تعلمي للإكسيل وبعد مرور وقت ليس بالقليل توصلت لمعرفة سبب المشكلة !! وضحكت كثيراً على هذه المشكلة

 

 

[محي الدين ابو البشر]

السلام عليكم

عضو حبير

والله تستحق أكثر من هذا

بارك الله بك وزاد من خبراتك

 

[سليم حاصبيا]

يمكن اختصار الكود بهذا الشكل

Sub Unhide_shts()
For i = 1 To Sheets.Count: Sheets(i).Visible = -1: Next
End Sub

 

[أبو حنــــين]

السلام عليكم

أبــويا محي الدين ( أبويا لأنك أبو البشر )

جزاكم الله خيرا على المرور

تقبل فائق شكري و تقديري