طلب شرح هذا الكود وكيفية استخدامه

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

الكود التالي يحمل توقيع الاستاذ ابو هاجر

وهو كما فهمت

يقوم بعمل disable للقوائم

الرجاء تنفيذ ذلك بمثال وتوضيح كيف نستفيد منه

كود

Function setCmdControol(CmdBarName As String, CmdCaption As String, doWhat As Boolean)

Dim newItem As CommandBarControl

Set newItem = CommandBars(CmdBarName).Controls(CmdCaption)

newItem.Enabled = doWhat

End Function

علماً بأنه يتم تمرير اسم شريط القوائم وعنوان القائمة التي تريد تمكينها أو عدم تمكينها ومتغير من نوع False/ True

حيث إن False يعني عدم التمكين و True يعني التمكين