اخفاء شريط أدوات أكسس

وجدت في أحد المنتديات الأجنبية طريقة سهلة لإخفاء واظهار أدوات وقوائم الأكسس

وقمت بوضعها في نموذج لتسهل عملية الفهم

الأكواد كالتالي :

كود الاخفاء :

Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

كود الاظهار :

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

في المرفقات نموذج للبرنامج

Hide_ToolBar.rar