طلب كود تعطيل زر F12

ابو ياسر2 · سبتمبر 23, 2014

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

ممكن مساعدتي في كتابة كود لتعطيل زر F12 في لوحة المفاتيح

حاولت كتابة هذا الكود لكن يعطيني خطاء

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

application.onkey {F12}, ""

End Sub

اتمنا منكم مساعدتي

تم تعديل سبتمبر 23, 2014 بواسطه etheer

ياسر خليل أبو البراء · سبتمبر 23, 2014

السلام عليكم أخي الغالي

تفضل المرفق التالي فيه تعطيل وتمكين زر F12

ياسر خليل أبو البراء · سبتمبر 23, 2014

تصحيح الخطأ في الكود الذي تفضلت به :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.OnKey "{F12}", ""
End Sub

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