Ahmed Emannan قام بنشر يوليو 11, 2009 مشاركة قام بنشر يوليو 11, 2009 (معدل) السلام عليكم اريد ان تكون كلمة السر في هذا الكود مشفرة من DVB الي *** نامل المساعدة Sub Button1_Click() Dim strPass As String Dim iCount As Integer strPass = "Secret" For lCount = 1 To 3 strPass = InputBox(Prompt:="الرجاء إدخال كلمة المرور", Title:="كلمة المرور") If strPass = vbNullString Then Exit Sub ElseIf strPass <> "DVB" Then MsgBox "كلمة المرور غير صحيحة", vbCritical, "DVB Software" Else Worksheets("ورقة1").Visible = xlSheetVisible Exit For End If Next lCount If lCount = 4 Then Exit Sub End Sub تم تعديل يوليو 11, 2009 بواسطه DVB Software رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 11, 2009 مشاركة قام بنشر يوليو 11, 2009 السلام عليكم أعتقد أنه لايمكن والله أعلم ما غرضك من ذلك. ربما يوجد حل بديل إن عرف الغرض !!!!! تحياتي رابط هذا التعليق شارك More sharing options...
Ahmed Emannan قام بنشر يوليو 11, 2009 الكاتب مشاركة قام بنشر يوليو 11, 2009 اريدها ان تظهر مشفر كلمة المرور ******** مجرد نجمات الصورة في المرفقات تحياتي رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مايو 1, 2012 مشاركة قام بنشر مايو 1, 2012 اليك الحل اخي حيث انني كنت في حيرة كبيرة لحل هذه المشكلة واليك الحل في المرفقات الانبوت بوكس.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مايو 1, 2012 مشاركة قام بنشر مايو 1, 2012 السلام عليكم بعد اذن الاخوة الكرام هذا مثال آخر الانبوت بوكس.rar رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر مايو 2, 2012 مشاركة قام بنشر مايو 2, 2012 السلام عليكم جزاكم الله خيرا يا شباب على التعاون مع الجميع أخي الكريم / Elsayeh هل يقتصر الكود على كلمة السر 123 فقط لأنه يعطي رسالة لأي كلمة غير هذة بأنها غير صالحة ؟ رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مايو 2, 2012 مشاركة قام بنشر مايو 2, 2012 السلام عليكم اخي الكريم اليك تعديل بسيط يجعلك تتحكم في تغيير كلمة المرور بسهولة والحل في المرفقات علما بأن كلمة المرور هي 123456 الانبوت بوكس.rar رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مايو 9, 2012 مشاركة قام بنشر مايو 9, 2012 الاخوة الافاضل مقالوش رأيهم في الفكرة يعني شكلها معجبتكوش رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 9, 2012 مشاركة قام بنشر مايو 9, 2012 الاخوة الافاضل مقالوش رأيهم في الفكرة يعني شكلها معجبتكوش بالعكس عمل ممتاز بارك الله فيك وللعلم فالكود يمكن استخدامه حتى في الاكسس http://www.officena.net/ib/index.php?showtopic=37919 رابط هذا التعليق شارك More sharing options...
عبدالفتاح محمد قام بنشر يوليو 23, 2012 مشاركة قام بنشر يوليو 23, 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.