منع النسخ واللصق من لوحة المفاتيح _ إلغاء عمل الأزرار

[ابوخليل]

الغاء ازرار النسخ واللصق في لوحة المفاتيح  Ctrl+C  ,  Ctrl+V

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If (Shift And 2) And (KeyCode = Asc("C")) Then
        KeyCode = 0
        MsgBox "No Coping Allowed, Cheater!!!"
    ElseIf (Shift And 2) And (KeyCode = Asc("V")) Then
        KeyCode = 0
        MsgBox "No Pasting Allowed, Cheater!!!"
    End If
End Sub

 

[علي المصري]

شكرا ... بارك الله فيك

جزاكم الله خيرا

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

[محمود _ المصري]

جزاك الله خير أبو خليل

ولكن لي استسفار في أي مكان اضع هذا الحدث كل يعمل بشكل كامل علي المشروع

ولا يقتصر علي نموذج فقط

تحياتي لك ---------- اخوك محمود المصري

[ابوخليل]

يا سلام عليك استاذ محمود

منكم نتعلم

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

 

New_m.rar

[محمود _ المصري]

 حبيبي يا أبو خليل

بس انا ملاحظ انه كود وليس ماكرو

[ابوخليل]

الكود مرتبط بالنموذج

ولتطبيقه على التقرير لا بد يكون في خصائص التقرير ايضا

اما كود يعمل عمل الماكرو هذا فلا اعلم

وايضا لا اعلم ولم اجرب هل يمكن اختصاره وتحويله الى دالة ام لا

[أم خلود]

اخي اين يتم وضع الكود ؟؟ باي حدث ؟؟

[ابوخليل]

الكود يوضع في احداث النموذج او التقرير  في حدث مفتاح لاسفل

 

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

[ahmedmahrm1]

شكرا جزيلا

[ابو جودي]

في 7/26/2015 at 11:24, ابوخليل said:

الكود يوضع في احداث النموذج او التقرير  في حدث مفتاح لاسفل

 

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

للاسف الكود لا يعمل مع الاوفيس 2010
هل من سبيل لكى يعمل مع اوفيس 2010

[محمد ايمن]

المرفق يعمل على 2016 و 2007 اخي ابا جودي