أيسم إبراهيم قام بنشر يناير 29, 2009 مشاركة قام بنشر يناير 29, 2009 السلام عليكم عملت هذا الكود لإدخال كلمة سر عن طريق الفورم لكن للأسف الكود يعترف بكلمة السر لو كانت مكونة من حروف فقط أمل إذا غيرتها إلى أرقام فإن الرسالة دائما تكون " كلمة السر غير صحيحة " حتى لو كتبت الأرقام الصحيحة Private Sub CommandButton1_Click() If TextBox1 = Sheets("welcome").Range("hh2") Then MsgBox "that;sright",vbOKOnly, " Cells.Select Selection.EntireColumn.Hidden = False Rows("10:1010").Select Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "goodbye"l;" End End If End Sub رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 29, 2009 مشاركة قام بنشر يناير 29, 2009 (معدل) السلام عليكم اخي العزيز هذا هو الكود بعد التعديل البسيط Private Sub CommandButton1_Click() Range("hh3") = TextBox1.Value If Range("hh3") = Range("hh3") Then MsgBox "that;sright", vbOKOnly, "" Cells.Select Selection.EntireColumn.Hidden = False Rows("10:1010").Select Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "" End End If End Sub وهذا كود اخر دون اللجوء للكتابة داخل خلية بالشيت Private Sub CommandButton1_Click() If TextBox1 = "123" Then MsgBox "that;sright", vbOKOnly, "" Cells.Select Selection.EntireColumn.Hidden = False Rows("10:1010").Select Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "" End End If End Sub ارجو اخباري بالنتيجة تحياتي تم تعديل يناير 29, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يناير 29, 2009 الكاتب مشاركة قام بنشر يناير 29, 2009 السلام عليكم أستاذ : عادل جزاك الله كل خير نقلت التعديل بالكود الأول لكنه أصبح يقبل أي كلمة مرور و يعتبرها صحيحة حتى لو غيرتها عدة مرات في المحاولة الواحدة أصلحه أصلح الله لك دنياك و آخرتك أفضل الكود الأول حتى يتمكن كل مستخدم من وضع كلمة السر التي تناسبه رابط هذا التعليق شارك More sharing options...
amoudi قام بنشر يناير 29, 2009 مشاركة قام بنشر يناير 29, 2009 الأخ aysam الكود تبعك مضبوظ ولكن يلزمك تحويل احد جهي المعادلة الى نص If TextBox1 = Sheets("welcome").Range("hh2") Then تحولة الى If TextBox1.Text = Sheets("welcome").Range("hh2") Then او If TextBox1 = Sheets("welcome").Range("hh2").Text Then تحياتي رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 29, 2009 مشاركة قام بنشر يناير 29, 2009 (معدل) السلام عليكم عذرا اخي فناك خطأ بسيط هذا هو بعد التعديل Private Sub CommandButton1_Click() Range("hh3") = TextBox1.Value If Range("hh2") = Range("hh3") Then MsgBox "that;sright", vbOKOnly, "" Cells.Select Selection.EntireColumn.Hidden = False Rows("10:1010").Select Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "" End End If End Sub جرب و قولي تحياتي تم تعديل يناير 29, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يناير 29, 2009 الكاتب مشاركة قام بنشر يناير 29, 2009 (معدل) السلام عليكم أستاذ : amoudi جزاك الله كل خير كنت خير خلف لخير سلف ( الأستاذ: عادل) أصلحته أصلح الله لك دنياك و آخرتك فعلا هو ما قلت تم تعديل يناير 29, 2009 بواسطه aysam رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 29, 2009 مشاركة قام بنشر يناير 29, 2009 مع ملاحظة ان كلام الاخ amoudi صحيح فانه يمكن تعديل الكود الاول (كودك) بعمل ما ذكره لك بارك الله فيه تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان