Ahmed Emannan قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم اخوتي الاعزاء اضع بين ايديكم كود لحماية اوراق العمل لملفك بكلمة سر واخفائها في نفس الوقت لااستطيع ايصال المعلومة لكم اكثر اترككم مع الملف المرفق كلمة السر هي DVB حروف كابيتال ورقة 1 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 ورقة 2 Sub Button2_Click() Dim strPass As String Dim iCount As Integer strPass = "ozgrid" 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("æÑÞÉ2").Visible = xlSheetVisible Exit For End If Next lCount If lCount = 4 Then Exit Sub End Sub منقول للفائدة من احد المنتديات الاجنبية الملف في المرفقات تحياتي لكم ________________________.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم جزاك الله كل الخير و جعله في ميزان حسناتك هدية غالية تحياتي أيسم إبراهيم رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم ألف شكر أخي الكريم كما قال أخي أستاذ أيسم هدية غالية ومن النوع الفاخر (يطعم أجنبي) كفيت وعفيت وتبوأت من الجنة منزلا رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم الكود رائع 0 ويمكن استخدامه على اكثر من ورقتينبارك الله فيك رابط هذا التعليق شارك More sharing options...
Ahmed Emannan قام بنشر يوليو 11, 2009 الكاتب مشاركة قام بنشر يوليو 11, 2009 لدي سؤال هنا اخوتي ادا امكن كيفية اخفاء كلمة السر في مربع الحوار بدل من ان يظهر الرقم يظهر ******** نجمات تحياتي رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يوليو 12, 2009 مشاركة قام بنشر يوليو 12, 2009 أولاً ..ألف شكر .. ثانياً .. إجابة سؤالك : كيف تجعل الباسوورد يظهر على هيئة نجوم موجودة على هذا الرابط http://www.officena.net/ib/index.php?showtopic=29035 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 12, 2009 مشاركة قام بنشر يوليو 12, 2009 أليس من المفروض أنه كما قمنا بالضغط على زر لإظهار وفتح الورقة أن يكون هناك زر آخر لإغلاق الورقة ويا حبذا لو كان نفس الزر يفتحها لو هى مقفولة ويقفلها لو هى مفتوحة ياريت تجرب تعمل الحركة دى نكون لك من الشاكرين ونحن بالفعل كذلك رابط هذا التعليق شارك More sharing options...
Ahmed Emannan قام بنشر يوليو 12, 2009 الكاتب مشاركة قام بنشر يوليو 12, 2009 (معدل) شكرا اخي يوسف على ردك انا مبتدي في البرمجة وسيكون خير ان شاء الله لكن اعتقد اخي احمد ان ما تتحدث عنه يتطلب فورم وهذا الكود كود تلقائي من البرمجة كتابة بالنسبة لسؤالي عن كيفية اخفاء كلمة المرور في مربع كلمة السر بدلا من تظهر مثلا 1234 كنت اريدها ان تخرج نجمات ******** وجدت الحل في احدى المنتديات الاجنبية وحبيت اني انقل الفائدة للمنتدى الغالي كلمة سر فتح جميع الاوراق هي 1234 هو نفس الكود في المشاركة اعلاه لكن عملت عليه بعض التعديلات في نفس الكود اعلاه وستجدون اخوتي الاعزاء ان مع الكود المطروح سابقا هناك كود طويل وبعض الدوال ارجوا من اخوتي المتقدمين في البرمجة ان يقوموا بشرح هذه الدوال اذا امكن وما حبيت المس شي في هذه الدوال فقط ضفت عليه الكود المعدل اتمنى ان ينال اعجابكم تحياتي لكم اخوكم احمد ______________________________________.rar تم تعديل يوليو 12, 2009 بواسطه DVB Software رابط هذا التعليق شارك More sharing options...
أبو جديد قام بنشر يوليو 13, 2009 مشاركة قام بنشر يوليو 13, 2009 ممتاز أخي والله يعطيك العافية رابط هذا التعليق شارك More sharing options...
mohammed deary قام بنشر فبراير 17, 2014 مشاركة قام بنشر فبراير 17, 2014 شكرأ لكم جميعاُ رابط هذا التعليق شارك More sharing options...
غزوان قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 شكرا وبارك الله فيك رابط هذا التعليق شارك 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.