أدخل كلمة المستخدم أو يحذف البرنامج

[ريان أحمد]

السلام عليكم

أريد أساتذتي الكرام أنه عندما يفتح البرنامج يقول للمستخدم أدخل كلمة المستخدم فيقوم بإدخالها إذا لم ينجح في إدخالها بعد ثلاث محاولات تخرج رسالة مفادها أنه سيتم حذف البرنامج بعد 05 دقائق

[ريان أحمد]

للرفع

[الـعيدروس]

السلام عليكم

بالنسبة لحذف الملف بعد المرة الثالثه توجد عدة طريق

وإما الحذف بعد وقت محدد من إقفال الملف ربما يحتاج الربط بواجهة التطبيقات

وليست لدي الخبره الكافية كي البي طلبك

ولاكن سوف ابحث اذا وجدت حل سوف أرفقه في هذه المشاركة إن شاء الله

هذا كود حذف البرنامج بعد المحاولة الثالثة مباشرة في حدث ThisWorkBook:

Public ALI_T As Byte

Private Const TIMEOUT As Long = 0

Private Sub Workbook_Open()

A:

Dim Pass

Dim AA

AA = Val(TIMEOUT)

Pass = InputBox("إدخل كلمة المرور", "منتدى أوفسينا")

If IsNull(Pass) Or Pass = "" Then GoTo A

If Pass = "123" Then

MsgBox "مرحبا بك ", vbInformation, "تفضل بالدخول"

Sheets(1).Activate

Exit Sub

End If

If ALI_T = 3 Then MsgBox "المحاولة الثالثة !! الأخيرة سيتم حذف البرنامج", vbCritical, "تحذير !!!": GoTo XC

ALI_T = ALI_T + 1

MsgBox "محاولة " & ALI_T & "من اصل 3 محاولات"

GoTo A

Exit Sub

XC:

MsgBox "كلمة السر خطاء للمرة الأخيرة" & Chr(13) & "سيتم حذف البرنامج  ", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight

Application.OnTime Now + TimeSerial(0, TIMEOUT, 0), Me.CodeName & ".Kill_Myself"

ThisWorkbook.Close savechanges = True

End Sub

Private Sub Kill_Myself()

    With Me

	    .Saved = True

	    .ChangeFileAccess xlReadOnly

		 Kill .FullName

	    .Close False

    End With

End Sub

[رجب جاويش]

بسم الله ما شاء الله

ابداع وتميز وقمة فى الروعة

بارك الله فيك

[الـعيدروس]

الأخ الحبيب رجب جاويش

أشكرك على هذا المرور العطر

وفقك الله

[saad abed]

ابو نصار

ده شغل متقن وفبه ابداع وحرفية

يعنى ابداع * ابداع *ابداع

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

سعد عابد

[الـعيدروس]

الأخ الغالي سعد عابد

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

وماندلو به في هذا المنتدى منكم وإليكم

ماتعلمناه من هذا الصرح

وفقك الله

[ريان أحمد]

hالسلام عليكم

شكرا وألف شكرا قمة في التميز والإبداع حفظك الله

---------------------------------------------------

أستاذي كنت قد قلتي لي عن ملف التعديل بتاريخ ستحاول فيه فهل من جديد

[احمدزمان]

السلام عليكم و رحمة الله

مايجيبها الا المبدعون

عمل رائع

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

[الـعيدروس]

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

الأخ الحبيب طاهر

أشكرك على مرورك الكريم

وبالنسبة لموضوعك السابق راجع رابط الموضوع

أستاذي الحبيب أحمد زمان

مرورك شرف كبير

وتعليقك وسام احطه على صدري وأعتز به

تلميذك أبو نصار

وفقك الله

والسلام عليكم

تم تعديل أبريل 3, 2012 بواسطه alidroos

[الـعيدروس]

على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=41175&st=20

تم تعديل أبريل 3, 2012 بواسطه alidroos

[منياوى]

رائع رائع رائع جزاكم الله كل خير