ارفاق ملف اخفاء واظهار صفحات العمل

[amir501]

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

hide.rar

[عبدالله باقشير]

السلام عليكم

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

-------------------------------

وانا اتوجه بسؤل للادارة الكريمة ؟؟؟؟ هل بامكاني حذف مشاركتي السابقة وفي حال تكرر مثل هذا الخطا

صلاحيات الحذف للمشرفين والمراقبين

للعلم:

تم حذف مشاركتك السابقة

--------------------------------

بالنسبة لكود الاخفاء يعطي رسالة خطأ

يحتاج تعديل بسيط:

Sub HideAllButOneSheet()

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets

    If wsSheet.CodeName = "ورقة1" Then GoTo 1

    wsSheet.Visible = False

1

Next wsSheet

End Sub

تم تعديل ديسمبر 14, 2009 بواسطه خبور خير

[سالم شباني]

السلام عليكم

بورك فيك أستاذ عامر على هذا الكود المميز

بعد تعديل الأستاذ خبور مشكورا صار كل شيء تمام

[أبو بكبك]

والله عمل رائع يستحق الدعاء بظهر الغيب فليبارك الله فيمن نفع أمة الإسلام