نقل يوزر فورم

[mohamed322]

لو فى يوزر فورم جاهز وعاوز أنقلة فى أكسيل أخر أعملة أزاى

يوجد يوزر فورم للمستخدم وأدخال الباسورد وعاوز أنقلة لأكسيل أخر أعملة ازاى

[حسين مامون]

اولا افتح الملف لي فيه الفورم واذهب الى قائمة développeur

ثم زر الماوس الايمن على الفورم كما في الصورة

 

ثم اختر éxporter un fichier

وفي النافذة المفتوحة اختر مكان حفظ الفورم وانقر enregestre

 

اغلق الملف المفتوح واذهب الى الملف المراد نقل الفورم اليه وانقر قائمة développeur ثم زر الماوس الايمن واختر كما في الصورة

 

 

وفي النافذة المفتوحة اختر الفورم وانقر على .... كما في الصورة

 

 

[mohamed322]

عاوز أشغلها لما أفتح الأكسيل

[حسين مامون]

اتبع الخطوات في الصور  بمشاركتي السابقة 

تم تعديل نوفمبر 11, 2020 بواسطه حسين مامون

[mohamed322]

[mohamed322]

أسف على الأزعاج بس مش عارف أفعلها تم نقلها بس مش بتتفعل مع فتح الأكسيل

[حسين مامون]

 

 

 

ارفع الملف الذي نقلت اليه الفورم 

تم تعديل نوفمبر 11, 2020 بواسطه حسين مامون

[حسين مامون]

يمكن ان تكون شيت لها علاقة باكواد الفورم غير موجودة  في ملفك

[mohamed322]

ahmad hamoor

1234

لو حبيت أشغل الفورم دة على أى أكسيل أشغلة أزاى

المفروض أية إلى يتغير علشان الفورم يتشغل على أى شيت

Book12.xlsFetching info...

[عبدالفتاح في بي اكسيل]

اخي  الكريم  لم  تحدد ماذا يظهر  لك  بعد  الدخول    تدخل  بشكل  طبيعي  لورقة  الاكسيل 

[mohamed322]

أنا عامل جدوال بها اسماء موظيفين وحضور وأنصراف أريد قبل الدخول للشيت أدخل الباسورد

[عبدالفتاح في بي اكسيل]

الاكسيل  لا يفتح  اذا  ادخلت  الرقم  السري خطا     اليس  هذا  ما  تريده  

[mohamed322]

أريد تطبيق الفورم بتاعت الباسورد على أى أكسل بمعنى لما أنى لما أنقلها ألى أى أكسيل تشتغل أى المفروض ألى اغيرة علشان تشتغل على أى أكسل لما أنقلها

[حسين مامون]

اولا : كما قلت لك في مشاركة سابقة كود الدخول في الفورم له علاقة ب sheet3 واي ملف ليس فيه sheet3 ونفس البيانات في ("b1:c1") فلن يعمل معك 

تانيا: اي ملف اكسيل تريد تطبيق عليه الفورم تأكد من امتداده هل هو xlsm

[عبدالفتاح في بي اكسيل]

في هذه  الحالة  يجب  التاكد  من تسمية  الاوراق  كما  في  الكود    كما  وضحلك  الاخ  حسين 

[mohamed322]

Option Explicit
Private Sub cmdHide_Click()
ThisWorkbook.Sheets("أعداد المطالبة").Visible = xlSheetVeryHidden
End Sub
Private Sub cmdShow_Click()
If txbUser = "admin" And txbPass = "admin" Then
ThisWorkbook.Sheets("أعداد المطالبة").Visible = xlSheetVisible
Else
MsgBox ("the user name and password does not match")
End If
End Sub

لو حبيت أضيف كذا شيت مع شيت أعداد المطالبة أعمل أية
لو حبيت أضيف كل الشيتات أعملة أزاى وشكرااااا

[حسين مامون]

لم اجد في  اي ملف بمشاركتك في هذا الشيت الذي اشرت اليه وما علاقة هذا الكود باضافة شيتات اخرى؟ !

يستحسن رفع ملف نموذجي مع شرح ما تريد بالتفصسل

تحياتي

[mohamed322]

لو حبيت أضيف شيت الكشف الثانى  فى الأخفاء ولو عملت الكشف الثالث أضيفة أزاى

نهائى شهدات محمد.xlsFetching info...

admin   admin

[حسين مامون]

والله ياخي حاولت افهم ماتريد لكن دون جدوى

هل تقصد طريقة اخفاء الشيت  و طريقة اطهاره؟

اعتذر عن عدم قدرتي في فهم مرادك

حاول شرح ما تريد بلغة الاكسيل 

تحياتي

ما المقصود ب الأخفاء ؟

[mohamed322]

لو حضرتك ضغط على أظهار هيظهر الكشف الأول أنا عاوز أضيف عليةالكشف الثانى ولو عملت الكشف الثالث أضيفة أزاى

 

ThisWorkbook.Sheets("الكشف الأول").Visible = xlSheetVeryHidden

أنا لو حبيت أضيف شيت الكشف الثانى أعمل أية

[حسين مامون]

اعد تصميم الفورم اضف اليه كومبوبوكس لاختيار الكشف الدي تريد

[حسين مامون]

هكذا مثلا تختار من الكومبوبوكس وتضغط زر اظهار الشيت الذي تختاره انت

[mohamed322]

طيب لو حبيت أضيف كل الشيتات يخفى الشيتات كلها

تم تعديل نوفمبر 12, 2020 بواسطه mohamed322

[حسين مامون]

جرب المرفق

نهائى شهدات محمد.xlsFetching info...

[mohamed322]

شكرااااااااااااااااااااااااااااااااا جداااااااااااااااااااااااااا ربنا يبارك فيكم