MR.EXCEL قام بنشر ديسمبر 31, 2013 قام بنشر ديسمبر 31, 2013 الرجاء كود لالغاء عمل F5 بحيث اى ضغط على هذا الزر لا يفعل شىء
محمود ربيع قام بنشر يناير 1, 2014 قام بنشر يناير 1, 2014 تفضل اخي هذا الكود Application.OnKey "{F5}", ""
محمود ربيع قام بنشر يناير 1, 2014 قام بنشر يناير 1, 2014 ولاثراء الموضوع هذا كود لتعطيل كافة مفاتيح الاختصار ممكن وضعه في 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
حمادة عمر قام بنشر يناير 1, 2014 قام بنشر يناير 1, 2014 السلام عليكم الاخ الحبيب / modi basha بارك الله فيك احسنت بالفعل وجعلك الله دائما في عون الجميع وجعل ذلك في ميزان حسناتك تقبل خالص تحياتي
احمد فضيله قام بنشر يناير 1, 2014 قام بنشر يناير 1, 2014 السلام عليكم و رحمة الله و بركاته الاستاذ الفاضل : ميدو جزاك الله كل خير
احمد فضيله قام بنشر يناير 1, 2014 قام بنشر يناير 1, 2014 العضوين الفاضلين اقدم لكما دعوه على الرابط التالي : http://www.officena....ic=41520&page=1 و لكما وافر الشكر و الاحترام
MR.EXCEL قام بنشر يناير 1, 2014 الكاتب قام بنشر يناير 1, 2014 الاخ modi basha جزاك الله خير هذا هو المطلوب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.