[ابو اياد@]

السلام عليكم ورحمته الله وبركاته

اسعد الله اوةقاتكم لكل خير
لدي طلب بسيط
وهو حمايه امر التعديل على نص معين في مربع تكست اللا اذا ادخل الرقم السري صحيح واذا كان خاطئ تظهر رساله بذلك حتى يتمكن من ادخالها بالشكل الصحيح
ان شاءالله وصلت الفكره

[سعود]

وعليكم السلام ورحمة الله وبركاته
اخي الكريم لماذا تصغر الخط رغم انه صغير بشكل افتراضي يعني نحتاج للتكبير

بالنسبة للسؤال فابسط الامور هي اظهار مربع ادخال

كود :

Inputbox("اكتب كلمة المرور للاستمرار")

[ابو اياد@]

شكرا اخي سعود على الرد
كتبت هالكود
Dim x As String
x = "password"
Dim y As String
y = InputBox("أدخل كلمة السر لتتمكن من التعديل")
If x <> y Then
MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")

End If

لكن اريد عندما تكون كلمة السر خاطئة هناك 3 محاولات بعدها تظهر رساله للمستخدم ويرجع الى التطبيق مره اخرى
ان شاءالله وصل الفكره

[OsamaGhareeb]

تفضل

كود :

Dim x As String = "password"
Dim Count As Integer = 0
Err:
If Count < 3 Then
    If Not x = InputBox("أدخل كلمة السر لتتمكن من التعديل") Then
        Count += 1
        MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")
        GoTo Err
    End If
Else
    MsgBox("لا يمكنك إدخال كلمة السر أكثر من ثلاث مرات")
End If

[ابو اياد@]

مشكور اخوي اسامة بارك الله فيك