طلب صغير على ظهور اليوزر فورم

[khaled0795]

طلب من اهل الخبرة

يوجد عندي ملف فيه شاشة يوزر فورم واريد ان تظهر هذه الشاشة عند الدخول الى ورقة عمل محددة وليس ملف الاكسيل كما هو بشاشة الدخول

ولكم جزيل الشكر

[عبدالله باقشير]

السلام عليكم

ضع كود اظهر الفورم في حدث تنشط الورقة

بمعنى الدخول الى الورقة

Worksheet_Activate

كود:

Private Sub Worksheet_Activate()

UserForm1.Show

End Sub

في امان الله

[khaled0795]

تمت تجربة الكود على فورم فارغ فنجح الأمر

ولكن عند تجربته على فورم جاهز تم أخذه من المشاركات الأخوة فإنه ظهر خطأ لم أعرف ما هو

أرجو المساعدة في حلها

وشكرا

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

المرفقات :

http://www.mediafire.com/file/d28n6csdb9pk84o/ظهور_اليوزر_فورم_تلقائي.xlsm

[عبدالله المجرب]

السلام عليكم

استبدل كودك السابق

Private Sub Worksheet_Activate()

UFormChang.Show

End Sub

بهذا

Private Sub Worksheet_Activate()

On Error GoTo 1

With UFormChang

    .kh_SetAddrss "الرئيسية", "a4:o4"

    .Show

End With

1:

If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في  : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء"

On Error GoTo 0

End Sub

[khaled0795]

جزاك الله كل خير يا استاذ أبو احمد