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

خزاني

03 عضو مميز
  • Posts

    228
  • تاريخ الانضمام

  • تاريخ اخر زياره

Community Answers

  1. خزاني's post in طلب ادخال فورم في مشروع عمل was marked as the answer   
    السلام عليكم و رحمة الله و بركاته ..
    khezzaniprg64-5.rar
  2. خزاني's post in الدخول الى املف اكسال ب3 محاولات was marked as the answer   
    الدخول ب3 محاولات.وادا كانت لمحاولة ثالثة خطأ يغلق الملف نهائي
    Private Sub CommandButton1_Click() Static compteur As Byte compteur = compteur + 1 If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then Unload Me Else If compteur = 3 Then MsgBox "خطاء في كتابةكلمةالسر." & _ vbCrLf & "لايمكنك الدخول للبرنامج" & _ vbCrLf & vbCrLf & "سوف تغادر....", _ vbOKOnly + vbCritical, "كلمةالسر خاطئة" ActiveWorkbook.Close End If MsgBox "كلمةالسرغيرصحيحة." & _ vbCrLf & "ليس لديك الصلاحية للدخول", _ vbOKOnly + vbExclamation, "كلمةالسرخاظئة" TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus Me.Caption = "Entrez le mot de passe. Tentative " & _ compteur + 1 & " sur 3" i = i + 1 If i = 2 Then End End If End If End Sub
  3. خزاني's post in الرجاء الاجابة سريعا - مطلوب نموذج بشريط تمرير was marked as the answer   
    bak.rar
     
     
     
     
×
×
  • اضف...

Important Information