khaled_1960 قام بنشر أبريل 9, 2015 قام بنشر أبريل 9, 2015 اخوتى الكرام السلام عليكم مرفق ملف يحتوي على طريقة لحماية جميع اوراق العمل عن طريق ماكرو كلمة فك حماية الصفحات yara عن طرق الذهاب الي review protect sheet أتمني أن ينال اعجابكم المرفقات: ======== Protect Sheets.rar ======== 2
ياسر خليل أبو البراء قام بنشر أبريل 9, 2015 قام بنشر أبريل 9, 2015 جزاك الله خيراً أخي الحبيب خالد ولكن هل لك أن توضح الأكواد وتشرح لها شرح مبسط ..حتى يتسنى للأخوة الأعضاء الاستفادة منها .. الملف يحتوي على أكواد رائعة ..كمل جميلك وفوق الراس نشيلك تقبل تحياتي 1
khaled_1960 قام بنشر أبريل 9, 2015 الكاتب قام بنشر أبريل 9, 2015 عزيزي ياسر الفكرة كلها عبارة عن القيام بتسجيل عدد 2 ماكرو اول ماكرو تقوم بتسجيلة عن طريق Developer Record Macro review Protect Sheet ضع علامة صح امام ما تريد حمايتة لاتقم بوضع كلمة سر للحماية اتركها فارغة ثم OK اوقف تسجيل الماكرة سجل ماكرو جديد نفس الخطوات لكن عند الوصول الي review ازال الحماية بالضغط Protect Sheet قثط اوقف التسجيل Alt F11 ستجد فيهم عدد 2 ماكرو للحماية و ازالة الحماية المطلوب بعد ذلك أن تضع كلمة سر للحماية ActiveSheet.Protect Password:= “yara”, DrawingObjects:=True (etc) لتشغيل الحماية ضع حماية الكل في ThisWorkbook بعد ذلك لابد أن نعمل لوب لحماية كافة الاوراق Dim ws As WorksheetFor Each ws In ActiveWorkbook.Sheets(protect code ) هنا ستجدة ضمن الماكرو الذذي قمت بتسجيلةNext ws لكن لا تنسي ايقاف ومض الشاشة في الاول و في اللنعاية تعيد تشغيلة (Application.ScreenUpdating = False) بنعمل ماكرو لفك الحماية بالاستعانة بالماكرو الثاني الذي قمنا بتسجيلة في الاول ونتيجة لقيام البعض بتغيير اسم الورقم فأنة من الافضل الحماية باسم الورقة و حماية بكود الاسم (علي سبيل المثال) Sheet1(Sheet1) ...... Sheet1(Data) الاسم الاول عبارة عن كود الاسم و الجزء الثاني عبارة عن أسم الورقة بالتالي الحماية عن طريق الاثنين حتي اذا تغير اسم الورقة يكون كود الورقة شغال الان يتم استبعاد ورقة بدون حماية Sub Protect_Name_Exclude_If() هذه فكرة العمل بشكل سريع و يمكن لك تتبع الخطوات و أرجو منك القيام بتسجيل اكثر من ماكرو و تغيير الاختيارات في كل مرة و شاهد الاختلاف أرجو أن اكون قد وضحت لك ما تريد الف شكر لك 2
ابو اسامة العينبوسي قام بنشر أبريل 9, 2015 قام بنشر أبريل 9, 2015 السلام عليكم ورحمة الله وبركاته نفعنا الله بعلمك
سـامي 169 قام بنشر مايو 28, 2015 قام بنشر مايو 28, 2015 , DrawingObjects:=True, Contents:=True, _ Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True, UserInterfaceOnly:=True اريد كرما منكم شرح لما سبق جمله جمله
الردود الموصى بها