السلام عليكم
الاخ الكريم / itch_az
بارك الله فيك
اولا كل الشكر والتقدير للاخ الحبيب / شوقي ربيع ... جزاه الله خيرا
يمكنك اخي الكريم من استخدام زر مخصص او معين لفتح الفورم بالطريقة التاليه
قم بعمل كود لاظهار الفورم في مودل ليكون الكود كالتالي ( مثلا ) :-
Sub sama()
UserForm1.Show
End Sub
ثم قم بوضع الكود التالي في حدث الملف عند الفتح لحجز الاختصار خاصتك
ملاحظة : حيث ان هذه الازرار التي تقصدها محجوزة من قبل مايكروسوفت لاختصارات الاكسيل العادية (( يفضل استخدام اختصارات اخري مثل Ctrl+Shift+اي حرف آخر ))
يتم وضع الكود التالي لاستدعاء الحجز لزر المختار عند فتح الملف بوضع الكود التالي في حدث الملف ThisWorkbook كما يلي
وفي الكود التالي سيكون الاختصار هو الزر F3 لاظهار الفورم المحدد ... ويمكنك تغييره كما تريد
Private Sub Workbook_Open()
Application.OnKey "{F3}", "sama"
End Sub
ارجو ان يفي هذا بطلبك
جزاك الله خيرا
زر مخصص لفتح اليوزرفورم.rar