الجموعي قام بنشر يناير 5, 2015 قام بنشر يناير 5, 2015 السلام عليكم ورحمة الله تعالى وبركاته الرجاء المساعدة في الكود التالي يعمل بشكل ممتاز Private Sub CommandButton1_Click() Dim password As String If TextBox1.Text = "aa" And TextBox2.Text = "1111" Then password = "True" End If If password = "True" Then MsgBox "مرحبا بك" Unload Me Sheets(2).Select Else MsgBox "إسم المستخدم/كلمة المرور خاطئة.حاول مرة ثانية" TextBox1.Text = vbNullString TextBox2.Text = vbNullString TextBox1.SetFocus End If End Sub الكود الذي اريد التعديل عليه بحيث أضفت مستخدم ثان وكلمة مرور ثانية أريد بعد إدخال الكود ينشط الصفحة 3 حاولت ولم تزبط معي Private Sub CommandButton1_Click() Dim password As String If TextBox1.Text = "aa" And TextBox2.Text = "1111" Then password = "True" End If If password = "True" Then MsgBox "مرحبا بك" Unload Me Sheets(2).Select If TextBox1.Text = "bb" And TextBox2.Text = "2222" Then password = "True" End If If password = "True" Then MsgBox "مرحبا بك" Unload Me Sheets(3).Select Else MsgBox "إسم المستخدم/كلمة المرور خاطئة.حاول مرة ثانية" TextBox1.Text = vbNullString TextBox2.Text = vbNullString TextBox1.SetFocus End If End If End Sub
الجموعي قام بنشر يناير 5, 2015 الكاتب قام بنشر يناير 5, 2015 تم تعديلي على هذا الكود لتسهيل المهمة عليكم الكود يعمل جيدا لكن الصفحة تنشط وتظهر رسالة مرحبا أريد عند الضغط على زر دخول تظهر الرسالة مرحبا ومن بعد تنشط الصفحة Private Sub CommandButton1_Click() Dim password As String If TextBox1.Text = "aa" And TextBox2.Text = "1111" Then password = "True" End If If password = "True" Then Unload Me Sheets(2).Select ElseIf TextBox1.Text = "bb" And TextBox2.Text = "2222" Then password = "True" Unload Me Sheets(3).Select End If If password = "True" Then MsgBox "مرحبا بك" Else MsgBox "إسم المستخدم/كلمة المرور خاطئة.حاول مرة ثانية" TextBox1.Text = vbNullString TextBox2.Text = vbNullString TextBox1.SetFocus End If End Sub
ibn_egypt قام بنشر يناير 5, 2015 قام بنشر يناير 5, 2015 اخى الجموعي كان الاسهل بدل كل ده ارفقت الملف وقولت طلبك وخلاص تحياتي
الجموعي قام بنشر يناير 5, 2015 الكاتب قام بنشر يناير 5, 2015 تم إيجاد الحل بهذا التعديل Private Sub CommandButton1_Click() Dim password As String If TextBox1.Text = "aa" And TextBox2.Text = "1111" Then password = "True" MsgBox "مرحبا بك" Unload Me Sheets(2).Select ElseIf TextBox1.Text = "bb" And TextBox2.Text = "2222" Then password = "True" MsgBox "مرحبا بك" Unload Me Sheets(3).Select Else MsgBox "إسم المستخدم/كلمة المرور خاطئة.حاول مرة ثانية" TextBox1.Text = vbNullString TextBox2.Text = vbNullString TextBox1.SetFocus End If End Sub
الجموعي قام بنشر يناير 5, 2015 الكاتب قام بنشر يناير 5, 2015 اخى الجموعي كان الاسهل بدل كل ده ارفقت الملف وقولت طلبك وخلاص تحياتي أستاذي إبن مصر معذرة مني ظننت أن الكود مفهوم تفضل المرفق عايز إضافات من عندك مثلا رسالة الترحيب تكون بإسم المستخدم إختيار الاسماء عن طريق كمبوبوكس مثلا واي إضافة استاذي PWD.rar
عبدالباري البنا قام بنشر يناير 6, 2015 قام بنشر يناير 6, 2015 اخي العزيز تفضل الملف بعد اجراء بعض التعديلات رسالة الترحيب بها اسم المستخدم اسم المستخدم يتم اختياره من Combo Box تعديل بسيط في الكود لسهوله تعديل اسم المستخدم وكلمة السر بدلا من كتابة اسم المستخدم وكلمة السر داخل الكود كتبنا اسم الخلية المكتوب بها اسم المستخدم وكلمة السر تقبل تحياتي PWD.rar 2
عبد الله بولنوار قام بنشر يناير 6, 2015 قام بنشر يناير 6, 2015 (معدل) اخ الجموعي كيف اخفيت الصفحة الثانية في حال دخول المستخدم 1 و العكس رغم انها لا تظهر عند اظهار الصفحات المخفية بمعني شرح Sheets(3).Visible = xlSheetVisible تم تعديل يناير 6, 2015 بواسطه عبد الله بولنوار
الصـقر قام بنشر يناير 6, 2015 قام بنشر يناير 6, 2015 اخى عبدالله بلنوار الكود التالى موجود بحدث الملف Private Sub Workbook_Open() Dim i As Integer On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Visible = xlSheetVeryHidden Next End Sub عند الدخول يقوم باخفاء الصفحات من 2 الى اخر صفحه تقبل تحياتى 2
الجموعي قام بنشر يناير 6, 2015 الكاتب قام بنشر يناير 6, 2015 اخي العزيز تفضل الملف بعد اجراء بعض التعديلات رسالة الترحيب بها اسم المستخدم اسم المستخدم يتم اختياره من Combo Box تعديل بسيط في الكود لسهوله تعديل اسم المستخدم وكلمة السر بدلا من كتابة اسم المستخدم وكلمة السر داخل الكود كتبنا اسم الخلية المكتوب بها اسم المستخدم وكلمة السر تقبل تحياتي PWD.rar بارك الله فيك أستاذي على هذا التعديل الرائع جزاك الله كل الخير إستفسار بسيط RR ماذا تعني رغم انك لم تصرح بها RR = MsgBox
الجموعي قام بنشر يناير 6, 2015 الكاتب قام بنشر يناير 6, 2015 اخى عبدالله بلنوار الكود التالى موجود بحدث الملف Private Sub Workbook_Open() Dim i As Integer On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Visible = xlSheetVeryHidden Next End Sub عند الدخول يقوم باخفاء الصفحات من 2 الى اخر صفحه تقبل تحياتى شكرا استاذي على توضيحك لفكرة عمل الكود للاستاذ عبد الله أنا لم ادخل للموضوع لأرد عليه بارك الله فيك
الصـقر قام بنشر يناير 6, 2015 قام بنشر يناير 6, 2015 اخى الكريم RR يمكن الاستغناء عنها وحذفها ولا يوثر على عمل الكود ستظهر الرساله عادى تقبل تحياتى 1
الجموعي قام بنشر يناير 6, 2015 الكاتب قام بنشر يناير 6, 2015 اخى الكريم RR يمكن الاستغناء عنها وحذفها ولا يوثر على عمل الكود ستظهر الرساله عادى تقبل تحياتى شكرا أستاذي على الشرح ودي وتقديري
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.