السلام عليكم ورحمة الله أقدم لكم حماية تمنع المفتاح Shift من العمل وفيها أيضا خدعة الخطوات : 1- في وضع التصميم لنموذج الواجهة ( النموذج الذي يعمل عند بدء التشغيل ) 2- أنشئ مربع تسمية Label وليكن أسمه : bDisableBypassKey 3- يجب أن يكون هذا المربع صغير للغاية بحيث لا يكاد يرى ( لا تعمل على إخفائه ) فنحن نريد استخدامه مستقبلا . 4- ضع الكود التالي في حدث عند النقر لمربع التسمية : Private Sub bDisableBypassKey_Click() On Error GoTo Err_bDisableBypassKey_Click 'This ensures the user is