تعطيل استخدام المفتاح ctrl - والمفتاح Shift

[محمود ربيع]

السلام عليكم ورحمة الله وبركاته - وكل عام وانتم بخير ايها الاعضاء الكرام

اعلم اني اثقلت عليكم في الاسئلة ولكن احاول ان اتعلم منكم برمجة الاكسل

وسؤالي هو هل يوجد كود لمنع استخدام المفتاح ctrl  - والمفتاح Shift لمنع استخدام الكثير من مفاتيح الاختصار والتي تؤدي الي عدم التطفل علي الملف .

تعلمت منكم كيفية تعطيل المفتاح Alt واطمع في ايجاد حل لهذين المفتاحين ....... ولكم مني وافر الاحترام والتقدير وخالص الدعاء

تم تعديل أكتوبر 17, 2013 بواسطه modi basha

[الـعيدروس]

السلام عليكم

 

جرب الكود التالي

Public Sub Auto_open()
 Ali_Key
End Sub
Private Sub Ali_Key()
    Dim Ar As Variant
    Dim K_y As Variant
    Dim S_key As Variant
    On Error Resume Next
    For Each S_key In Array("+", "^", "+^%")
        Ar = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
                    "{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
                    "{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
                    "{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}", "x", _
                    "c", "a", "w", "f", "k", "g", "s", "t", "p", "v")
        For Each K_y In Ar
            Application.OnKey S_key & K_y, ""
        Next K_y
    Next
    On Error GoTo 0
End Sub

[محمود ربيع]

وضعت الكود في موديول وللاسف لن يعمل معي لو تكرمت اخي الكريم من ارفاق ملف مطبق عليه الكود جزاك الله خيرا

[الـعيدروس]

السلام عليكم

 

شاهد المرفق

 

Ali_Key.rar

[محمود ربيع]

والله الذي لا اله غيره يا اخي الكريم انتم تعملون خيرا لا تعلمو مداه وما يعلمه الا الله

اللهم نور قلبك بالعلم والدين

ويشرح لك صدرك بالهدي واليقين

وييسر لك امرك ويرفعك الي عليين

ويحشرك بجوار النبي الامين صلي الله تعالي عليه وعلي اله وصحبه اجمعين

تم تعديل أكتوبر 17, 2013 بواسطه modi basha

[الـعيدروس]

جزاك الله كل خير على هذا الدعاء

ولك بالمثل اضعاف مضاعفه وفقك الله

تقبل تحياتي وشكري