ريان أحمد قام بنشر أبريل 1, 2012 مشاركة قام بنشر أبريل 1, 2012 السلام عليكم أريد أساتذتي الكرام أنه عندما يفتح البرنامج يقول للمستخدم أدخل كلمة المستخدم فيقوم بإدخالها إذا لم ينجح في إدخالها بعد ثلاث محاولات تخرج رسالة مفادها أنه سيتم حذف البرنامج بعد 05 دقائق رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 للرفع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 السلام عليكم بالنسبة لحذف الملف بعد المرة الثالثه توجد عدة طريق وإما الحذف بعد وقت محدد من إقفال الملف ربما يحتاج الربط بواجهة التطبيقات وليست لدي الخبره الكافية كي البي طلبك ولاكن سوف ابحث اذا وجدت حل سوف أرفقه في هذه المشاركة إن شاء الله هذا كود حذف البرنامج بعد المحاولة الثالثة مباشرة في حدث 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 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 بسم الله ما شاء الله ابداع وتميز وقمة فى الروعة بارك الله فيك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 الأخ الحبيب رجب جاويش أشكرك على هذا المرور العطر وفقك الله رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 ابو نصار ده شغل متقن وفبه ابداع وحرفية يعنى ابداع * ابداع *ابداع جزاك الله خيرا سعد عابد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 الأخ الغالي سعد عابد اشكرك على هذه الكلمات الطيبه وماندلو به في هذا المنتدى منكم وإليكم ماتعلمناه من هذا الصرح وفقك الله رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 hالسلام عليكم شكرا وألف شكرا قمة في التميز والإبداع حفظك الله --------------------------------------------------- أستاذي كنت قد قلتي لي عن ملف التعديل بتاريخ ستحاول فيه فهل من جديد رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 السلام عليكم و رحمة الله مايجيبها الا المبدعون عمل رائع جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 (معدل) وعليكم السلام ورحمة الله وبركاته الأخ الحبيب طاهر أشكرك على مرورك الكريم وبالنسبة لموضوعك السابق راجع رابط الموضوع أستاذي الحبيب أحمد زمان مرورك شرف كبير وتعليقك وسام احطه على صدري وأعتز به تلميذك أبو نصار وفقك الله والسلام عليكم تم تعديل أبريل 3, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 (معدل) على هذا الرابط http://www.officena.net/ib/index.php?showtopic=41175&st=20 تم تعديل أبريل 3, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر ديسمبر 15, 2012 مشاركة قام بنشر ديسمبر 15, 2012 رائع رائع رائع جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.