اختفاء قوائم الاكسيل

[ksnagofficena]

السادة الاعضاء الكرام

بعد تحميل بعض ملفات الاكسيل من النت وفتحها اختفت من الاكسيل عندى قوائم البرنامج كلها وحاولت بشتى الطرق استعادتها فلم انجح فهل من مغيث ؟؟؟؟؟؟

[ابو اسامة العينبوسي]

السلام عليكم

Sub RestoreToolbars()

    On Error Resume Next

        With Application

           .DisplayFullScreen = False

           .CommandBars("MyToolbar").Enabled = False

           .CommandBars("Worksheet Menu Bar").Enabled = True

        End With

    On Error GoTo 0

End Sub

restore_menu.rar

[ابراهيم البقري]

رائع منك يا اخ ابو اسامة

وهذا ايضا لاستادة اوفيس 2003 ( 11 )

Excel_11.rar