amir501 قام بنشر ديسمبر 14, 2009 مشاركة قام بنشر ديسمبر 14, 2009 كود اخفاء واظهار الصفحات وانا اعتذر لهذا الخطابعدم ارفاق الملف في المشاركة السابقة ؟؟؟؟ وانا اتوجه بسؤل للادارة الكريمة ؟؟؟؟ هل بامكاني حذف مشاركتي السابقة وفي حال تكرر مثل هذا الخطا hide.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 14, 2009 مشاركة قام بنشر ديسمبر 14, 2009 (معدل) السلام عليكم بارك الله فيك اخي امير ------------------------------- وانا اتوجه بسؤل للادارة الكريمة ؟؟؟؟ هل بامكاني حذف مشاركتي السابقة وفي حال تكرر مثل هذا الخطا صلاحيات الحذف للمشرفين والمراقبين للعلم: تم حذف مشاركتك السابقة -------------------------------- بالنسبة لكود الاخفاء يعطي رسالة خطأ يحتاج تعديل بسيط: 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 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر ديسمبر 15, 2009 مشاركة قام بنشر ديسمبر 15, 2009 السلام عليكم بورك فيك أستاذ عامر على هذا الكود المميز بعد تعديل الأستاذ خبور مشكورا صار كل شيء تمام رابط هذا التعليق شارك More sharing options...
أبو بكبك قام بنشر يناير 4, 2010 مشاركة قام بنشر يناير 4, 2010 والله عمل رائع يستحق الدعاء بظهر الغيب فليبارك الله فيمن نفع أمة الإسلام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.