اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

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

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

ارجو اخباري بالنتيجة

تحياتي

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

الأخ 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

جرب و قولي

تحياتي

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

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

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

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

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

فعلا هو ما قلت

تم تعديل بواسطه aysam
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information