إختصار كود Hide & Unhide

[أبو أنس حاجب]

Hide_Unhide.rar

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

ارجو التكرم من الاساتذة الافاضل بإختصار هذا الكود.

ولكم جزيل الشكر والاحترام

[ابو اسامة العينبوسي]

السلام عليكم

هذا كود للاخفاء

عدله حسب حاجتك

هو باختصار يقوم باختيار اوراق العمل دفعه واحد و من ثم يخفي منها جميع الاعمده التى تريد

هنا ايضا كود لاختيار كل اوراق العمل (ليس الموجود في المرفق)

Sub hidden()
  Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Sheets
         ws.Select
    Columns("a:a").EntireColumn.hidden = True
    Columns("t:t").EntireColumn.hidden = True
    Columns("e:e").EntireColumn.hidden = True
    Columns("h:M").EntireColumn.hidden = True
   
    Selection.EntireColumn.hidden = True
     
    Next
    Application.ScreenUpdating = True
End Sub

Hide_Unhide.rar

[أبو أنس حاجب]

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

أستاذي الفاضل أبا اسامة اشكر لك تجاوبك معي وارجو مراجعة الكود فهو يخفي فقط اعمدة الشيت الاول.

مع فائق الاحترام

[ابو اسامة العينبوسي]

السلام عليكم

اخي الكريم

الكود شغااال 100%

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

راجع الصفحات قبل تنفيذ الكود فكل الاعمده ظاهره

بعد التنفيذ ستختفي

ارجوا من الاخوه تجريب الملف للتاكد

Hide_Unhide.rar

[أبو أنس حاجب]

السلام عليكم..

استاذي الفاضل مع شديد الاحترام اشكرك ولكن الملف لا يعمل.لا اعلم ماهو السبب

[ابو اسامة العينبوسي]

السلام عليكم

انا كنت اضفت زر جديد من عندي وهو الذي يعمل

الان عدلت على الزر خصتك و هو يعمل

هنا اختصرت كود الاخفاء

و الاظهار عندما يشتغل الملف معك

Hide_Unhide.rar

تم تعديل يونيو 25, 2007 بواسطه ابو اسامة العينبوسي

[أبو أنس حاجب]

السلام عليكم ..

سيدي الفاضل ابا اسامة حفظك الله من كل مكروه, انا شديد الارتباك في الرد عليك لانني اعلم سعيك لمساعدتي ولكن صدقني الكود يخفي فقط الاعمدة المختارة من شيت las001 فقط وليس من جميع الشيتات, ولا اعلم السبب لذا ارجو من احد الاخوة الزملاء في المنتدى تجربة الكود واظهار مكمن الخلل.

[هادى محمد المامون سالم]

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



اخى hageb

جرب الملف المرفق بعد الأختصار



السلام عليكم

Hide_Unhide_02.rar

[أبو أنس حاجب]

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

أستاذي الفاضل هادي جزاك الله كل خير على تداخلك معنا . لي سوال ممكن تعديل في الكود لاختيار بعض الشيتات فقط مثلا اخفاء الاعمدة المختارة فقط لشيتات las001 , las003, las006,las008, las011,las015 مع اهمال الشيتات الاخرى

ولك فائق الشكر والاحترام

[هادى محمد المامون سالم]

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

أستاذي الفاضل هادي جزاك الله كل خير على تداخلك معنا . لي سوال ممكن تعديل في الكود لاختيار بعض الشيتات فقط مثلا اخفاء الاعمدة المختارة فقط لشيتات las001 , las003, las006,las008, las011,las015 مع اهمال الشيتات الاخرى

ولك فائق الشكر والاحترام

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

اخى الكريم :

الموضوع ليس أختصار كود

جرب الملف المرفق

السلام عليكم

Hide_Unhide_03.rar

[ابو اسامة العينبوسي]

السلام عليكم

دائما تبهرني بحلولك

اخوك عمر

[أبو أنس حاجب]

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

استاذي القدير هادي سالم جزاك الله خير الدنيا ونعيم الاخرة.

والشكر والدعاء موصول للاستاذ ابا اسامة.

لا حرمنا الله من طلاتكم علينا.

أبوأنس حاجب