الدخول الى املف اكسال ب3 محاولات

[حافظ حافظ]

السلام عليكم اساتدتي الكرام

وجدت في هدا المنتدى الرائع هدا الملف.اردت عمل تعديل على هذا الملف يبقى مثل ما هو فقط عند الدخول لا تظهر اوراق الاكسال تظهر الفورم فقط.ولو سمحتم يكون الدخول ب3 محاولات.وادا كانت لمحاولة ثالثة خطأ يغلق الملف نهائي.

 

 

شاشة دخول.rar

[حافظ حافظ]

للرفع جازاكم الله خيرا.للضرورة

[خزاني]

الدخول ب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 محاولات.وادا كانت لمحاولة ثالثة خطأ يغلق الملف نهائي

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

بارك الله فيك استاد خزاني .لو سمحت ماهو الكود الدي يجعل الاوراق لا تظهر في البداية يظهر الفورم فقط

[ياسر خليل أبو البراء]

الأخ الفاضل حافظ حافظ

لما كل الطلبات في موضوع واحد ..فقط اطرح موضوع جديد بطلب جديد عشان الكل يستفيد ..

تقبل تحياتي

[ياسر خليل أبو البراء]

ضع الكود في حدث المصنف

Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

[حافظ حافظ]

 

ضع الكود في حدث المصنف

Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

بارك الله فيك على كود مضبوط جازاك الله خيرا

[ياسر خليل أبو البراء]

وجزيت بمثله أخي الفاضل

يرجى الإطلاع على موضوع التوجيهات لمعرفة قواعد المنتدى

http://www.officena.net/ib/index.php?showtopic=60147

تقبل تحياتي

[زياد عبد الجليل]

بارك الله فيك اخي خزاني والله عمل ممتاز 

[صلاح الصغير]

ا / ياسر

مع احترامى طبعا انا الموضوع مجاب عنه

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

        ثانيا : ارجو من الاساتذة الافاضل ارفاق كود ممتاز للاستاذ عبد الله باقشير اعتقد و اعتذر ان كان لاحد الاساتذة و هو خاص بعدم فتح الملف فى حالة تعطيل الماكرو

 

الكود جميل و رائع و اعتقد انه بيعطى حماية كاملة

و الله اعلم