احمدزمان قام بنشر أبريل 19, 2011 مشاركة قام بنشر أبريل 19, 2011 الاربعاء، 17 جمادى الأولى، 1432 السلام عليكم و رحمة الله و بركاته بناء على طلب احد الإخوة على الرابط http://www.officena.net/ib/index.php?showtopic=36359 وبعد الشكر لأخي Hancock على الإبداع الجميل الذي قدمة حول الموضوع و كذلك الشكرلأخي ابو احمد/ ولدمجرب -=-=-=- ارفق لكم اليوم ملف من احد ابداعات الأستاذ الفاضل / حسام نور و الذي وضع كود يقوم باخفاء جميع اشرطة الأدوات في اكسل و يقوم باعادة اظهارها ايا كان اسم هذا الشريط او اياكان عددها == == == == وننتهذ هذه الفرصة بالدعاء له في ظهر الغيب و ذلك بسبب طول غيابه الطويل عن المنتدى فـ جزاه الله كل خير [font="Franklin Gothic Medium"][size="4"][b]Dim MyCommandBars_Name() As String Sub HideCommandBars() On Error GoTo OutOfRange Dim cd As CommandBar With Application .DisplayFormulaBar = False .DisplayStatusBar = False For Each cb In .CommandBars If cb.Visible = True Then ReDim Preserve MyCommandBars_Name(UBound(MyCommandBars_Name) + 1) MyCommandBars_Name(UBound(MyCommandBars_Name)) = cb.Name If cb.Name = "Worksheet Menu Bar" Then cb.Enabled = False Else cb.Visible = False End If End If Next cb End With Exit Sub OutOfRange: If Err = 9 Then ReDim MyCommandBars_Name(0) Resume Next Else MsgBox Err.Description End If End Sub Sub UnhideCommandBars() With Application .DisplayFormulaBar = True .DisplayStatusBar = True For i = 0 To UBound(MyCommandBars_Name) If MyCommandBars_Name(i) = "Worksheet Menu Bar" Then .CommandBars(MyCommandBars_Name(i)).Enabled = True Else .CommandBars(MyCommandBars_Name(i)).Visible = True End If Next i End With End Sub [/b][/size][/font] Book122.rar رابط هذا التعليق شارك More sharing options...
zine pef قام بنشر أبريل 19, 2011 مشاركة قام بنشر أبريل 19, 2011 بركة الله فيك الأخ أحمد و الله يكون في عوننا و عون إخواننا الغائبين عنا و إن شاء الله يكونوا بألف خير و الصحة و الهناء أمين يا رب العالمين رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر أبريل 19, 2011 مشاركة قام بنشر أبريل 19, 2011 جزاكم الله كل خير و ارجو من الله ان يكون الغياب للأستاذ الفاضل / حسام نور غياب خير و كافة الاعضاء الذين طال غيابهم عنا و عن المنتدي رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 20, 2011 الكاتب مشاركة قام بنشر أبريل 20, 2011 السلام عليكم اخي zine pef شكرا لك على مرورك الكريم اخي الفاضل HaNcOcK شكرا لك ايضا رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أبريل 20, 2011 مشاركة قام بنشر أبريل 20, 2011 ======================== الاخ الحبيب/ احمد زمان ======================== و رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 21, 2011 الكاتب مشاركة قام بنشر أبريل 21, 2011 السلام عليكم و رحمة الله وبركاته الأستاذ الكريم المعطاء خبور خير جزاك الله كل خير تشرفت جدا بمرورك الكريم وافضالك في المنتدى لا ننساها ابدا رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أبريل 21, 2011 مشاركة قام بنشر أبريل 21, 2011 اخى فى الله /احمد زمان دائما تبحث عن ما يغيب عنا كود جميل جدا بارك الله فيك والدال على الخير كفاعله اللهم اصلح لحسام نور دنياه واخراه وجزاى الله احمد زمان احسن الجزاء اخوك فى الله / سعد عابد رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أبريل 22, 2011 مشاركة قام بنشر أبريل 22, 2011 السلام عليكم أكواد رائعة ومميزة تحياتي وأشواقي أستاذي الفاضل أحمد وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 30, 2011 الكاتب مشاركة قام بنشر أبريل 30, 2011 السلام عليكم و رحمة الله وبركاته اخي سعد عابد جزاك الله كل خير على كريم مرورك أخي خالد شكرا الك عاى مرورك الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان