مساعدة بسيطة من خبراء الأكواد

[أيسم إبراهيم]

السلام عليكم

عملت هذا الكود لإدخال كلمة سر عن طريق الفورم

لكن للأسف الكود يعترف بكلمة السر لو كانت مكونة من حروف فقط أمل إذا غيرتها إلى أرقام فإن الرسالة دائما تكون " كلمة السر غير صحيحة " حتى لو كتبت الأرقام الصحيحة

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

[عادل حنفي]

السلام عليكم

اخي العزيز

هذا هو الكود بعد التعديل البسيط

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

[أيسم إبراهيم]

السلام عليكم أستاذ : عادل

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

نقلت التعديل بالكود الأول لكنه أصبح يقبل أي كلمة مرور و يعتبرها صحيحة حتى لو غيرتها عدة مرات في المحاولة الواحدة

أصلحه أصلح الله لك دنياك و آخرتك

أفضل الكود الأول حتى يتمكن كل مستخدم من وضع كلمة السر التي تناسبه

[amoudi]

الأخ aysam

الكود تبعك مضبوظ

ولكن يلزمك تحويل احد جهي المعادلة الى نص

If TextBox1 = Sheets("welcome").Range("hh2") Then

تحولة الى

If TextBox1.Text = Sheets("welcome").Range("hh2") Then

او

If TextBox1 = Sheets("welcome").Range("hh2").Text Then

تحياتي

[عادل حنفي]

السلام عليكم

عذرا اخي

فناك خطأ بسيط

هذا هو بعد التعديل

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

[أيسم إبراهيم]

السلام عليكم أستاذ : amoudi

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

كنت خير خلف لخير سلف ( الأستاذ: عادل)

أصلحته أصلح الله لك دنياك و آخرتك

فعلا هو ما قلت

تم تعديل يناير 29, 2009 بواسطه aysam

[عادل حنفي]

مع ملاحظة ان كلام الاخ amoudi صحيح

فانه يمكن تعديل الكود الاول (كودك) بعمل ما ذكره لك بارك الله فيه

تحياتي