اشرطة الأدوات في اكسل

[احمدزمان]

‏الاربعاء‏، 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

[zine pef]

بركة الله فيك الأخ أحمد

و الله يكون في عوننا و عون إخواننا الغائبين عنا

و إن شاء الله يكونوا بألف خير و الصحة و الهناء

أمين يا رب العالمين

[احمد فضيله]

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

و ارجو من الله ان يكون الغياب للأستاذ الفاضل / حسام نور غياب خير

و كافة الاعضاء الذين طال غيابهم عنا و عن المنتدي

[احمدزمان]

السلام عليكم

اخي zine pef شكرا لك على مرورك الكريم

اخي الفاضل HaNcOcK شكرا لك ايضا

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

========================

الاخ الحبيب/ احمد زمان

========================

و

[احمدزمان]

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

الأستاذ الكريم المعطاء

خبور خير

جزاك الله كل خير

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

وافضالك في المنتدى لا ننساها ابدا

[saad abed]

اخى فى الله /احمد زمان

دائما تبحث عن ما يغيب عنا

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

اللهم اصلح لحسام نور دنياه واخراه

وجزاى الله احمد زمان احسن الجزاء

اخوك فى الله / سعد عابد

[خالد القدس]

السلام عليكم

أكواد رائعة ومميزة

تحياتي وأشواقي أستاذي الفاضل أحمد

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

[احمدزمان]

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

اخي سعد عابد

جزاك الله كل خير على كريم مرورك

أخي خالد

شكرا الك عاى مرورك الكريم