أيسم إبراهيم قام بنشر يوليو 7, 2008 مشاركة قام بنشر يوليو 7, 2008 السلام عليكم جميعا اريد ان احمى ورقة عمل لحماية بعض المعادلات بها من الحذف لكنى فى نفس الوقت اريد استثناء بعض الخلايا بهذه الورقة من الحماية افيدونا افادكم الله و لكم جزيل الشكر أيسم رابط هذا التعليق شارك More sharing options...
h63 قام بنشر يوليو 7, 2008 مشاركة قام بنشر يوليو 7, 2008 السلام عليكم الملف المرفق من A2 الى A18 محمى ومن C2 الى C18 محمى اما من B2 الى B18 غير محمى الطريقة:- 1) حدد ورقة الاكسيل كلها ثم رايت كليك - تنسيق خلايا - حماية ازل علامة الصح من مؤمنة ومن مخفية 2) حدد الخلايا التى تريد حمايتها فقط ثم رايت كليك - تنسيق خلايا - علم صح على مؤمنة مخفية من ادوات حماية اختر رقم الحماية هشام New__________Microsoft_Excel.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 8, 2008 الكاتب مشاركة قام بنشر يوليو 8, 2008 السلام عليكم أستاذ هشام جزاك الله خيرا على الرد و الشرح ولكنى لدى هذا الكود الذى من احد اساتذة المنتدى الكرام لكنى لم استطع ان استفيد منه لعدم علمى . اين اضعه ؟ جربته كثيرا لكنه لا يجدى معى افيدونا افادكم الله الكود : Private Sub Worksheet_selectionchange(byval target As Range) If targethasformula Then ActiveSheet.Protect Else ActiveSheet.Unprotect EndIf End Sub رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 8, 2008 مشاركة قام بنشر يوليو 8, 2008 السلام عليكم اخوانى الاحبه ارجو ان تكون الاسئلة اكثر دقة مثلا كلمة اريد استثناء بعض الخلاياعامه جدا لو حددت الخيه كذا و كذا مع مرفق يكون الامر اسهل رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 8, 2008 الكاتب مشاركة قام بنشر يوليو 8, 2008 السلام عليكم و رحمة الله و بركاته انه يشرف كبير ان يرد علي الاستاذ القدير : ابو اسامه آسف علي عدم التوضيح اريد حماية الخلايا التى بها معادلات من الحذف فى ووقة العمل او فى المصنف كله و ترك خلايا اخرى دون حماية حتى يتثنى للمستخدم ادخال البيانات. مرفق ملف به مثال على ما اريد ولكم جزيل الشكر ____.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 8, 2008 مشاركة قام بنشر يوليو 8, 2008 السلام عليكم ____.rar رابط هذا التعليق شارك More sharing options...
h63 قام بنشر يوليو 8, 2008 مشاركة قام بنشر يوليو 8, 2008 السلام عليكم اخى ابو اسامة بارك الله فيك ولكن لى سؤال ActiveSheet.Protect لو غيرنا الامر Protect الى اى امر اخر هل يستجيب الكود وهل بنفس دباجة الكود هذا ممكن استبدال الامر Protect الى اوامر اخرى وما هى الاوامر التى يستجيب لها هذا الكود يعنى مثلا فى الكود امر حماية هل ممكن استبدال الامر بامر ان يلون خلية او يجمع خلايا وهكذا اسف على الاطالة هشام رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 8, 2008 الكاتب مشاركة قام بنشر يوليو 8, 2008 السلام عليكم و رحمة الله و بركاته جزاك الله خيرا على الرد ولكنى لدى هذا الكود ( يبدوا انك لم تلاحظه فى مشاركتى الثالثة ) اين اضعه ؟ مع العلم ان لدى عدة اوراق فى المصنف أأضعه فى كل ورقة من اوراق العمل ؟ ام ماذا ؟ أفيدونا افادكم الله ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 8, 2008 مشاركة قام بنشر يوليو 8, 2008 السلام عليكم Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.HasFormula Then ActiveWorkbook.ActiveSheet.Protect Else ActiveWorkbook.ActiveSheet.Unprotect End If End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان