المساعدة في اعادة شريط القوائم

اخي الفاضل : ابو حاتم

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

لديك طريقتين لعمل ذلك فإختر الأسهل لك

الطريقة الأولى : بواسطة الكود البرمجي

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

Dim i
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i