مشكلة القص و النسخ و اللصق

[عبد العزيز البسكري]

......و فجأة أساتذتي الأعزاء وجدت أنّ كل الملفات عندي لا يمكنني إجراء عمليات القص و النسخ و اللصق ..سواء الملف محمي أو غير محمي ..عند عمل كليك يمين على أي خلية لا تظهر عملية القص أو النسخ..ربما راجع لكوني أتعلم و أدخل العديد من الأكواد الصالحة و الطالحة..و ربما في غير محلها ..أين الخلل لست أدري ..ساعدوني على هذه المشكلة جزاكم الله خيرًا و بارك الله فيكم مقدّمًا .

البرنامج التجريبي.rar

تم تعديل مارس 29, 2015 بواسطه عبد العزيز البسكري

[ياسر خليل أبو البراء]

جرب هذا الكود في أي ملف

Sub ResetAll()
    Dim myCommandBar As CommandBar
    For Each myCommandBar In Application.CommandBars
        If myCommandBar.Type = msoBarTypePopup Then
            myCommandBar.Reset
            myCommandBar.Enabled = True
        End If
    Next myCommandBar
End Sub

[عبد العزيز البسكري]

بارك الله فيك أستاذنا الغالي ياسر خليل ..نجدك دومًا في الوقت المناسب ..جزاك الله خيرًا .. وفّقك الله وسدّد خطاك و زادك من علمه و فضله