كود إلغاء تفعيل جميع الايقونات في الاكسيل

[أبو عبد الله _]

السلام عليكم 

كل عام وانتم بخير 

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

مثلاً عند الطباعة لا يتمكن من الضغط على ctrl+p او الطباعة من ملف 

يطبع فقط من خلال زر طباعة يتم اعداده 

وكذلك النسخ واللصق 

.... .... 

إذا كان يصعب الغاء تفعيل جميع الخيارات 

فيمكن الاكتفاء بالغاء الطباعة والنسخ واللصق والحفظ كنسخة 

[أبو عبد الله _]

Up

[أبومروان]

ذا لسبب ما تريد تعطيل الاختصارات بما في ذلك مفتاح Windows (فوز + مفاتيح الاختصار)، يمكنك القيام بذلك ببساطة شديدة عن طريق محرر نهج المجموعة.

 

 

• فتح محرر نهج المجموعة (نوع GPEDIT.MSC in يجري وتعطي Enter) وانتقل إلى تكوين المستخدم> قوالب الإدارة> Windows المكونات> Windows Explorer (File Explorer إلى Windows 8)
• في الجزء الأيسر، وتحديد ثم انقر نقرا مزدوجا فوق الإدخال أوقف Windowsمفاتيح الاختصار X +

[أبو عبد الله _]

شكراً على تفاعلك 

لكن ما اريده كود بحيث يوضع داخل ملف معين وهذا الملف فقط وليس كل ملفات الاكسيل 

[محمد_الدسوقى]

لعمل توقف لأامر الطباعة باستخدام لوحة المفاتيح استخدم التعليمة التالية فى حدث تنشيط المصنف

Private Sub Workbook_Activate()

Application.OnKey "^p", ""

End Sub