كود للحفظ

[محمود ربيع]

الاساتذة الافاضل ---- بعد التحية ----- اريد من سيادتكم كود يقوم علي حفظ الملف بمجرد ضغط الزر Enter وان لم يكن فهل ممكن مثلا ان يكون الحفظ بعد ضغط مفاتيح F1 اوF2 او ما الي ذلك بحيث يكون زر الحفظ واحد فقط وليس ctrl+s وشكرا لكم جميعا مقدما

[الـعيدروس]

السلام عليكم

 

الصق الكود التالي في مودويل

Sub Auto_open()
' غير الزر المراد استخدامه للحفظ بين القوسين
' F2 , F1 , F3 وهكذا
Application.OnKey "{F2}", "Sv"
End Sub
Sub Sv()
ThisWorkbook.Save
End Sub

[عبد الحميد شقير]

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