aly elhedewy قام بنشر نوفمبر 27, 2012 قام بنشر نوفمبر 27, 2012 (معدل) الى اساتذتى ومعلمى الافاضل جزاكم الله خيرا ارجو المساعده فى هذا الملف كل ما اريده هو عندما اقوم بتنشيط check box يقوم بغلق كل الخلايا التى بها بيانات والعكس صحيح ولكم كل الشكر والتقدير اخيكم على الحديوى check box.zip تم تعديل نوفمبر 27, 2012 بواسطه aly elhedewy
أبو حنــــين قام بنشر نوفمبر 27, 2012 قام بنشر نوفمبر 27, 2012 هذه الكود يعمل مع البيانات في العمود K Private Sub CheckBox1_Click() LR = Cells(Rows.Count, "K").End(xlUp).Row + 1 For s = 5 To LR If Cells(s, 11).Text <> "" Then If CheckBox1.Value = False Then Cells.EntireRow.Hidden = False Else Cells(s, 11).EntireRow.Hidden = True End If: End If: Next End Sub
عادل ابوزيد قام بنشر نوفمبر 27, 2012 قام بنشر نوفمبر 27, 2012 الاستاذ العزيز ابو حنين بعد اذنك ممكن توضع الكود فى ملف ولك جزيل الشكر والدعاء بالصحة والستر والعافيه ( حتى ولو لم تضعه فى ملف .. عادى )
أبو حنــــين قام بنشر نوفمبر 27, 2012 قام بنشر نوفمبر 27, 2012 هذا الملف الذي أرفقته في مشاركتك الاولى check box.rar
aly elhedewy قام بنشر نوفمبر 28, 2012 الكاتب قام بنشر نوفمبر 28, 2012 اخى فى الله ابو حنين جزاك الله خيرا على تواصلك معى ولكن هذا ليس المقصود المقصود هو عندما اقوم بتنشيط check box يقوم بغلق الخلايا التى تحتوى على بيانات بمعنى اخر اى لا يمكن لاحد ان يعدل اى بيانات الا اذا قام بالغاء تنشيط check box وفى نفس الوقت تكون البيانات ظاهره وليست مخفيه ولكن لا يمكن التعديل فيها طالما check box نشط وعندما يتم الغاء تنشيط check box يمكن التعديل فى بيانات الملف وشكرا لسعه صدركم اخيك فى الله على الحديوى
عادل ابوزيد قام بنشر نوفمبر 28, 2012 قام بنشر نوفمبر 28, 2012 بعد اذن استاذى ابو حنين بعد التحيه والسلام .. مرفق الملف .. لعله يفى بالغرض .. وللامانه العمل لا ينسب لى بل كان لاحد المشاركات ولا اتذكرها حمايه عن طريق check box.rar
aly elhedewy قام بنشر نوفمبر 28, 2012 الكاتب قام بنشر نوفمبر 28, 2012 اخى فى الله اشكرك شكرا جزيلا على تواصلك معى ان الملف الذى ادرجته هو اقرب لما اريده ولكنه ليس ما اريده كل ما اريده سيدى الفاضل حمايه الجزء الذى به بيانات فقط وليس كل الصفحه وشكرا لسعه صدركم
أبو حنــــين قام بنشر نوفمبر 28, 2012 قام بنشر نوفمبر 28, 2012 إستعمل هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) If CheckBox1.Value = True And Target.Value <> "" Then ActiveSheet.Protect Else ActiveSheet.Unprotect End If End Sub
aly elhedewy قام بنشر نوفمبر 29, 2012 الكاتب قام بنشر نوفمبر 29, 2012 (معدل) خى فى الله اشكرك شكرا جزيلا على تواصلك معى ان الملف الذى ادرجته هو اقرب لما اريده ولكنه ليس ما اريده كل ما اريده سيدى الفاضل حمايه الجزء الذى به بيانات فقط وليس كل الصفحه بمعنى اى لا يمكن التعديل فيه ولكن هذا الكود الذى ادرجته سيادتكم يقوم باخفاء البيانات فقط فاريد ان ازيد عليه يقوم بحمايه البيانات الموجوده ولا يمكن التعديل فيها وشكرا لسيادتكم check box.zip تم تعديل نوفمبر 29, 2012 بواسطه aly elhedewy
أبو حنــــين قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 أخي لكي يعمل الكود يجب ان تقوم يالتالي : ـ 1 ) تحديد كل الخلايا ـ 2 ) تضغط في اي مكان بعد التحديد بيمين الفأرة لتظهر نافذة تنسيق خلايا ـ 3 ) من التبويب حماية تمسح علامة الصح من مؤمنة و مخفية بعدها يعمل الكود بطريقة عادية
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.