مشكلة في CommandBars

[Mohammed Farid]

السلام عليكم إخواني الكرام

قمت بدون قصد بحذف Find Control من CommandBars عن طريق الكود التالي

Application.CommandBars.FindControl(ID:=1849).Delete

فهل توجد طريقة لإسترجاعه حتى أتمكن من عمل الأمر Execute

شكرا لكم

[Mohammed Farid]

وجدت الحل إخواني الكرام

Application.CommandBars("Edit").Reset

شكرا لكم

[ياسر خليل أبو البراء]

جرب الكود التالي لاستعادة جميع الأشرطة (الوضع الافتراضي)

Sub ResetAll()
    Dim myCommandBar As CommandBar
    For Each myCommandBar In Application.CommandBars
        If myCommandBar.Type = msoBarTypePopup Then
            myCommandBar.Reset
            myCommandBar.Enabled = True
        End If
    Next myCommandBar
End Sub

الكود مقتبس من مكتبة الصرح ... ويوجد الموضوع في الموضوعات الحالية في المنتدى قمت بوضع رد ليظهر في الصفحة الأولى

ابحث عن كلمة "استعادة"

[Mohammed Farid]

شكرا أخي الكريم ياسر خليل أبو البراء

دمتم في حفظ الله

[ياسر خليل أبو البراء]

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

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

يرجى تغيير اسم الظهور للغة العربية ...