افتح الصفحة
اذهب الى ادوات
ثم ماكرو
ثم وحذات ماكرو
يفتح لك مربع
اختر اسم واكتبه
اضغط علىانشاء
تفتح لك صفحة
امسح ما فيها
ثم الصق
Sub Rest
Dim bar As CommandBar
For Each bar In CommandBars
bar.Enabled = True
Next
End Sub
اغلق الصفحة
اضغط f5
او اضغط على تشغيل ماكرو سترجع القوائم المختفية
شكرا لك