اظهار شيتات تم اخفائها بفورم استاذ ضاحي الغريب

[مصطفى محمود مصطفى]

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

من الموقع يوجد فورم للاستاذ ضاحي الغريب حاولت ان اطبقه على ملفي

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

حاولت من اظهار المخفي في  ملفي الخاص ولم تنفع

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

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

تحياتي للجميع

اخفاء اوراق العمل والتنقل بالفورم ضاحي الغريب.rar

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

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

Option Explicit
Sub Show_Sheets()
Dim i%
For i = 1 To Sheets.Count
If Sheets(i).Visible = 2 Then Sheets(i).Visible = 1
Next
End Sub

 

[مصطفى محمود مصطفى]

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

استاذ سليم بارك الله بكم

وحفظكم من كل سوء

انقذتني ووفرت عني تعب كبير باعادة الاوراق بالملف

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