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
أيسم إبراهيم قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 السلام عليكم جزاك الله كل الخير و جعله في ميزان حسناتك هدية غالية تحياتي أيسم إبراهيم
خالد القدس قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 السلام عليكم ألف شكر أخي الكريم كما قال أخي أستاذ أيسم هدية غالية ومن النوع الفاخر (يطعم أجنبي) كفيت وعفيت وتبوأت من الجنة منزلا
هشام شلبى قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 السلام عليكم الكود رائع 0 ويمكن استخدامه على اكثر من ورقتينبارك الله فيك
Ahmed Emannan قام بنشر يوليو 11, 2009 الكاتب قام بنشر يوليو 11, 2009 لدي سؤال هنا اخوتي ادا امكن كيفية اخفاء كلمة السر في مربع الحوار بدل من ان يظهر الرقم يظهر ******** نجمات تحياتي
naderwatfa قام بنشر يوليو 12, 2009 قام بنشر يوليو 12, 2009 أولاً ..ألف شكر .. ثانياً .. إجابة سؤالك : كيف تجعل الباسوورد يظهر على هيئة نجوم موجودة على هذا الرابط http://www.officena.net/ib/index.php?showtopic=29035
يوسف عطا قام بنشر يوليو 12, 2009 قام بنشر يوليو 12, 2009 أليس من المفروض أنه كما قمنا بالضغط على زر لإظهار وفتح الورقة أن يكون هناك زر آخر لإغلاق الورقة ويا حبذا لو كان نفس الزر يفتحها لو هى مقفولة ويقفلها لو هى مفتوحة ياريت تجرب تعمل الحركة دى نكون لك من الشاكرين ونحن بالفعل كذلك
Ahmed Emannan قام بنشر يوليو 12, 2009 الكاتب قام بنشر يوليو 12, 2009 (معدل) شكرا اخي يوسف على ردك انا مبتدي في البرمجة وسيكون خير ان شاء الله لكن اعتقد اخي احمد ان ما تتحدث عنه يتطلب فورم وهذا الكود كود تلقائي من البرمجة كتابة بالنسبة لسؤالي عن كيفية اخفاء كلمة المرور في مربع كلمة السر بدلا من تظهر مثلا 1234 كنت اريدها ان تخرج نجمات ******** وجدت الحل في احدى المنتديات الاجنبية وحبيت اني انقل الفائدة للمنتدى الغالي كلمة سر فتح جميع الاوراق هي 1234 هو نفس الكود في المشاركة اعلاه لكن عملت عليه بعض التعديلات في نفس الكود اعلاه وستجدون اخوتي الاعزاء ان مع الكود المطروح سابقا هناك كود طويل وبعض الدوال ارجوا من اخوتي المتقدمين في البرمجة ان يقوموا بشرح هذه الدوال اذا امكن وما حبيت المس شي في هذه الدوال فقط ضفت عليه الكود المعدل اتمنى ان ينال اعجابكم تحياتي لكم اخوكم احمد ______________________________________.rar تم تعديل يوليو 12, 2009 بواسطه DVB Software
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.