اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

ولاثراء الموضوع هذا كود لتعطيل كافة مفاتيح الاختصار ممكن وضعه في Thisworkbook في الحدث Open

يقوم بتعطيل كافة مفاتيح الاختصار والمفتاح Alt والمفتاح shift والمفتاح ctrl

Private Sub Workbook_Open()
' تعطيل كافة المفاتيح المتعلقة بAlt+f#
Application.OnKey "{F1}", ""
Application.OnKey "{F2}", ""
Application.OnKey "{F3}", ""
Application.OnKey "{F4}", ""
Application.OnKey "{F5}", ""
Application.OnKey "{F6}", ""
Application.OnKey "{F7}", ""
Application.OnKey "{F8}", ""
Application.OnKey "{F9}", ""
Application.OnKey "{F10}", ""
Application.OnKey "{F11}", ""
Application.OnKey "{F12}", ""
Application.OnKey "%{F1}", ""
Application.OnKey "%{F2}", ""
Application.OnKey "%{F3}", ""
Application.OnKey "%{F4}", ""
Application.OnKey "%{F5}", ""
Application.OnKey "%{F6}", ""
Application.OnKey "%{F7}", ""
Application.OnKey "%{F8}", ""
Application.OnKey "%{F9}", ""
Application.OnKey "%{F10}", ""
Application.OnKey "%{F11}", ""
Application.OnKey "%{F12}", ""
' تعطيل كافة المفاتيح المتعلقة بshift+f#
Application.OnKey "+{F1}", ""
Application.OnKey "+{F2}", ""
Application.OnKey "+{F3}", ""
Application.OnKey "+{F4}", ""
Application.OnKey "+{F5}", ""
Application.OnKey "+{F6}", ""
Application.OnKey "+{F7}", ""
Application.OnKey "+{F8}", ""
Application.OnKey "+{F9}", ""
Application.OnKey "+{F10}", ""
Application.OnKey "+{F11}", ""
Application.OnKey "+{F12}", ""
' تعطيل كافة المفاتيح المتعلقة بctrl+f#
Application.OnKey "^{F1}", ""
Application.OnKey "^{F2}", ""
Application.OnKey "^{F3}", ""
Application.OnKey "^{F4}", ""
Application.OnKey "^{F5}", ""
Application.OnKey "^{F6}", ""
Application.OnKey "^{F7}", ""
Application.OnKey "^{F8}", ""
Application.OnKey "^{F9}", ""
Application.OnKey "^{F10}", ""
Application.OnKey "^{F11}", ""
Application.OnKey "^{F12}", ""
' تعطيل كافة المفاتيح المتعلقة بctrl+حرف
Application.OnKey "^f", ""
Application.OnKey "^w", ""
Application.OnKey "^r", ""
Application.OnKey "^t", ""
Application.OnKey "^y", ""
Application.OnKey "^u", ""
Application.OnKey "^i", ""
Application.OnKey "^o", ""
Application.OnKey "^a", ""
Application.OnKey "^s", ""
Application.OnKey "^d", ""
Application.OnKey "^g", ""
Application.OnKey "^h", ""
Application.OnKey "^j", ""
Application.OnKey "^k", ""
Application.OnKey "^l", ""
Application.OnKey "^z", ""
Application.OnKey "^x", ""
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "^b", ""
Application.OnKey "^n", ""
Application.OnKey "^m", ""
Application.OnKey "^'", ""
Application.OnKey "^;", ""
Application.OnKey "^/", ""
Application.OnKey "^ ", ""

End Sub
قام بنشر

السلام عليكم

الاخ الحبيب / modi basha

بارك الله فيك

احسنت بالفعل

وجعلك الله دائما في عون الجميع

وجعل ذلك في ميزان حسناتك

تقبل خالص تحياتي

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information