تعطيل زر الماوس الايمن

[المهندس احمد]

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

لديه هذا الكود وهو عند فتح البرنامج يقوم بأغلاق النقر فوق زر الماوس الايمين وعند الاغلاق المفروض يقوم بفتح النقر فوق الزر الايمن

لكن لديه اوفيس 365 وعند فتح الملف فهو فعلاً يتوقف النقر فوق الزر الايمن لكن عند الاغلاق ايضاُ يبقى الامر كما هو

 

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

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
EnablePly
End Sub

 

Private Sub Workbook_Open()
DisablePly
End Sub

[أ / محمد صالح]

من الواضح أن إجراء التمكين غير موجود والذي يسمى enableply

لذلك يمكنك استعمال هذين الاجرائين

للتعطيل

Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub

للتمكين

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub  

بالتوفيق

[المهندس احمد]

شكراً لك اخي العزيز وبارك الله في جهودك الطيبة