أيسم إبراهيم قام بنشر يوليو 7, 2008 قام بنشر يوليو 7, 2008 السلام عليكم جميعا اريد ان احمى ورقة عمل لحماية بعض المعادلات بها من الحذف لكنى فى نفس الوقت اريد استثناء بعض الخلايا بهذه الورقة من الحماية افيدونا افادكم الله و لكم جزيل الشكر أيسم
h63 قام بنشر يوليو 7, 2008 قام بنشر يوليو 7, 2008 السلام عليكم الملف المرفق من A2 الى A18 محمى ومن C2 الى C18 محمى اما من B2 الى B18 غير محمى الطريقة:- 1) حدد ورقة الاكسيل كلها ثم رايت كليك - تنسيق خلايا - حماية ازل علامة الصح من مؤمنة ومن مخفية 2) حدد الخلايا التى تريد حمايتها فقط ثم رايت كليك - تنسيق خلايا - علم صح على مؤمنة مخفية من ادوات حماية اختر رقم الحماية هشام New__________Microsoft_Excel.rar
أيسم إبراهيم قام بنشر يوليو 8, 2008 الكاتب قام بنشر يوليو 8, 2008 السلام عليكم أستاذ هشام جزاك الله خيرا على الرد و الشرح ولكنى لدى هذا الكود الذى من احد اساتذة المنتدى الكرام لكنى لم استطع ان استفيد منه لعدم علمى . اين اضعه ؟ جربته كثيرا لكنه لا يجدى معى افيدونا افادكم الله الكود : Private Sub Worksheet_selectionchange(byval target As Range) If targethasformula Then ActiveSheet.Protect Else ActiveSheet.Unprotect EndIf End Sub
ابو اسامة العينبوسي قام بنشر يوليو 8, 2008 قام بنشر يوليو 8, 2008 السلام عليكم اخوانى الاحبه ارجو ان تكون الاسئلة اكثر دقة مثلا كلمة اريد استثناء بعض الخلاياعامه جدا لو حددت الخيه كذا و كذا مع مرفق يكون الامر اسهل
أيسم إبراهيم قام بنشر يوليو 8, 2008 الكاتب قام بنشر يوليو 8, 2008 السلام عليكم و رحمة الله و بركاته انه يشرف كبير ان يرد علي الاستاذ القدير : ابو اسامه آسف علي عدم التوضيح اريد حماية الخلايا التى بها معادلات من الحذف فى ووقة العمل او فى المصنف كله و ترك خلايا اخرى دون حماية حتى يتثنى للمستخدم ادخال البيانات. مرفق ملف به مثال على ما اريد ولكم جزيل الشكر ____.rar
h63 قام بنشر يوليو 8, 2008 قام بنشر يوليو 8, 2008 السلام عليكم اخى ابو اسامة بارك الله فيك ولكن لى سؤال ActiveSheet.Protect لو غيرنا الامر Protect الى اى امر اخر هل يستجيب الكود وهل بنفس دباجة الكود هذا ممكن استبدال الامر Protect الى اوامر اخرى وما هى الاوامر التى يستجيب لها هذا الكود يعنى مثلا فى الكود امر حماية هل ممكن استبدال الامر بامر ان يلون خلية او يجمع خلايا وهكذا اسف على الاطالة هشام
أيسم إبراهيم قام بنشر يوليو 8, 2008 الكاتب قام بنشر يوليو 8, 2008 السلام عليكم و رحمة الله و بركاته جزاك الله خيرا على الرد ولكنى لدى هذا الكود ( يبدوا انك لم تلاحظه فى مشاركتى الثالثة ) اين اضعه ؟ مع العلم ان لدى عدة اوراق فى المصنف أأضعه فى كل ورقة من اوراق العمل ؟ ام ماذا ؟ أفيدونا افادكم الله ولكم جزيل الشكر
ابو اسامة العينبوسي قام بنشر يوليو 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.