فتح فورم من خلال فورم آخر ووضع اكواد

[Muner]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته                                                                                                      أخواني الأعزاء أرجو أن تسمح لي ظروفكم لمساعدتي في هذا العمل وكلي أمل بعد الله في مساعدتي ، فأنا ليس لدي معرفة بالأكواد لذا أطلب منكم وضع الأكواد للفورمين حسب ماهو مطلوب كالتالي: 

 1- أريد عند فتح الشيت مباشرة يفتح الفورم رقم (1) ويغلق الشيت مباشرة.                                       2- من الفورم الأول هذا أريد يفتح الفورم (2) وهو خاص بترحيل البيانات ويغلق الفورم (1).                 3-   بعد أن يكمل تعبئة البيانات يتم الضغط على زر الترحيل فيتم الترحيل إلى الشيت وهو مغلق .        4- بعد ترحيل البيانات يتم الضغط على زر تحويل الملف إلى pdf . المهم أن الشيت مغلق .                      5-إذا أردنا فتح الشيت الإكسيل نقوم بالضغط على زر الدخول إلى الشيت ولكن نضع له كلمة سر 123.                                 
  إذا فالمطلوب هو :                                                                                                                         أولاً 😞 وضع كود لفتح الفورم (1) ويغلق الشيت .                                                                               ثانيا: وضع كود استدعا الفورم (2)  .                                                                                                   ثالثا: وضع كود لتحويل الملف إلى pdf  بعد ترحيل البيانات.                                                               رابعا: وضع كود لفتح الشيت يشتمل على كلمة المرور 123
 أرجو أن الفكرة واضحة مع خالص شكري وتقديري                      

 

طلاب.xlsm

[أ / محمد صالح]

لا تنتظر أن يصمم لك أحد الأعضاء برنامجا متكاملا مجانا

المنتدى تعليمي في المقام الأول

لذا عليك بالتعلم أولا

وتصميم برنامجك بنفسك ثانيا

فإذا وقفت في نقطة أو اثنتين

يمكنك عرض مشكلتك في موضوع جديد

بالتوفيق

[Muner]

شكرا أخي محمد صالح 

انا صممت الفورم الموجود في الملف لكن ماعندي معرفة بوضع الأكواد، مع خالص شكري  

[أبومروان]

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

1- أريد عند فتح الشيت مباشرة يفتح الفورم 

Private Sub Workbook_Open()
    UserForm1.Show 'اسم الفورم التي ترغب في فتحها
End Sub

ويغلق الشيت مباشرة.

Worksheets("Sheet1").Visible = False

Worksheets("Sheet1").Visible = True

شاهد الرابط ادناه