toumy قام بنشر نوفمبر 2, 2010 مشاركة قام بنشر نوفمبر 2, 2010 السلام عليكم اخوتي الكرام اتمني من الله ان تجدو لي الحل لهاذه المسالة لي ورقة اكسال متكونة من 5 ازرار انتقل منها للاوراق الاخري اريد منكم مدى بالكود لاضهار زر واحد واخفاء 4 الاخرين وان تكون اضهار الازرار 4 بوضع كلمة مرور في خلية من هذه الورق وشكرا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر نوفمبر 3, 2010 مشاركة قام بنشر نوفمبر 3, 2010 أخي الكريم إرسل الملف ليستطيع من يريد المساعدة أن يساعد رابط هذا التعليق شارك More sharing options...
toumy قام بنشر نوفمبر 3, 2010 الكاتب مشاركة قام بنشر نوفمبر 3, 2010 السلام عليكم و رحمة الله وبركاته هذا هو الملف وشكرا youtube to mp3 Cac1123.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر نوفمبر 4, 2010 مشاركة قام بنشر نوفمبر 4, 2010 السلام عليكم جرب المرفق وكلمة السر هي XYZ وضعت لك كودين في حدث الورقة الأول يفرغ محتويات الخلية B3 بمجرد الدخول للورقة Private Sub Worksheet_Activate() [B3] = "" End Sub والثاني يفحص B3 إذا كانت تحتوي علي كلمة السر يخفي الأزرار المطلوبة وإلا يظهرها Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 2 Or Target.Row <> 3 Then Exit Sub If Target.Value <> "XYZ" Then GoTo 100 ActiveSheet.Shapes("CommandButton2").Visible = False ActiveSheet.Shapes("CommandButton3").Visible = False ActiveSheet.Shapes("CommandButton4").Visible = False ActiveSheet.Shapes("CommandButton5").Visible = False Exit Sub 100 ActiveSheet.Shapes("CommandButton2").Visible = True ActiveSheet.Shapes("CommandButton3").Visible = True ActiveSheet.Shapes("CommandButton4").Visible = True ActiveSheet.Shapes("CommandButton5").Visible = True End Sub تفضل المرفق Cache2.rar رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر نوفمبر 4, 2010 مشاركة قام بنشر نوفمبر 4, 2010 السلام عليكم اخي الكريم هنا يجب عليك استخدام كودين الاول عند فتح البرنامج لاخفاء الازرار ومسح الخلية استخدم الكود التالي في الحدث Workbook_Open Private Sub Workbook_Open() Feuil1.Range("b3").ClearContents For i = 2 To 5 Feuil1.Shapes("CommandButton" & i).Visible = False Next i End Sub والكود التالي في حدث التغيير للصفحة Worksheet_Change لاضهار الازرار عند ادخال كلمة السر Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b3")) Is Nothing Then If Target = 123 Then For i = 2 To 5 Shapes("CommandButton" & i).Visible = True Next i End If End If End Sub كامة السر 123 وهنا مرفق Cache123.rar رابط هذا التعليق شارك More sharing options...
toumy قام بنشر نوفمبر 4, 2010 الكاتب مشاركة قام بنشر نوفمبر 4, 2010 السلام عليكم و رحمة الله وبركاته شكرا لك اخ طارقوالاخ الحسامي على هذا الرد والاجابة الموفقة رابط هذا التعليق شارك 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.