tag4m قام بنشر نوفمبر 8, 2004 مشاركة قام بنشر نوفمبر 8, 2004 السلام عليكم ورحمه الله عندى خمس صفحات وعند عمل حماية للورقة افتح صفحة صفحة واعمل حماية لكل ورقه على حدا وهذا مرهق يعنى لو عندى مثلا 15 ورقة اعمل 15 حماية هل توجد طريقة لحماية ال 15 ورقة مرة واحدة وشكرا :o رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر نوفمبر 9, 2004 مشاركة قام بنشر نوفمبر 9, 2004 السلام عليكم ... يمكنك ذلك عن طريق كود VBA وباستخدام الأسلوب Protect ، والشفرة التالية تحل مشكلتك : Sub password() ' إجراء لحماية كافة الأوراق الموجودة في مصنف دفعة واحدة ' "كلمة السر هي "بسم الله Dim password As Worksheet For Each password In ActiveWorkbook.Worksheets password.Protect password:="بسم الله", DrawingObjects:=True, Contents:=True, Scenarios:=True Next password End Sub الأسلوب Protect يحتوي على عدد كبير من البارامترات يمكنك الإطلاع عليها من خلال نظام المساعدة الموجود في محرر الفيجوال ، واستخدامك لهذه البارامترات يتوقف على نوعية الحماية التي ترغبها في ورقة العمل ... رابط هذا التعليق شارك More sharing options...
tag4m قام بنشر نوفمبر 9, 2004 الكاتب مشاركة قام بنشر نوفمبر 9, 2004 شكرا يا استاذنا على هذا الكود ، سأقوم بنسخة وتطبيقه ان شاء الله ام بخصوص هذا الجزء: الأسلوب Protect يحتوي على عدد كبير من البارامترات يمكنك الإطلاع عليها من خلال نظام المساعدة الموجود في محرر الفيجوال ، واستخدامك لهذه البارامترات يتوقف على نوعية الحماية التي ترغبها في ورقة العمل ... الكلام ده كبير عليه، ما المقصود بكلمة البارامترات ! معذرة على الاطالة ، وشكرا على سرعة ردك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر نوفمبر 10, 2004 مشاركة قام بنشر نوفمبر 10, 2004 البارامترات هي المعاملات المستخدمة في الأسلوب ، وكل معامل يمتلك اسماً مخصصاً ، وبهذا فإنه يمكنك الاستعانة بهذا الاسم مع علامة التخصيص =: وذلك من أجل تخصيص أي قيمة لأي معامل نوعية الحماية تعني تحديد المزابا التي تتأثر بالحماية و المزايا التي لا تتأثر بالحماية ، ففي المثال السابق يمكنك الإبقاء على إمكانية تغيير خصائص الخلايا بعد حماية الورقة بإضافة المعامل AllowFormattingCells:=True ذو القيمة المنطقية True إلى الأسلوب Protect السابق رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر نوفمبر 13, 2004 مشاركة قام بنشر نوفمبر 13, 2004 السلام عليكم ... يجب عليك أخي الكريم إنشاء Module ووضع الكود السابق (و الذي يمثل الإجراء password) في هذا الـ Module وبعد ذلك اضغط على Alt+F8 لتظهر لك نافذة تحتوي على أسماء الماكروات الموجودة في مصنفك ، حدد الماكرو password واضغط على الزر Run ليعمل المرفق التالي يحتوي على المثال ، حمله وشغله وسوف توفق إنشاء الله... password.zip رابط هذا التعليق شارك More sharing options...
tag4m قام بنشر نوفمبر 13, 2004 الكاتب مشاركة قام بنشر نوفمبر 13, 2004 السلام عليكم ورحمة الله علم وجارى التنفيذ ، مش عارف اشكرك ازاى شكرا رابط هذا التعليق شارك More sharing options...
smart قام بنشر نوفمبر 13, 2004 مشاركة قام بنشر نوفمبر 13, 2004 (معدل) ' إجراء لإزالة حماية كافة الأوراق الموجودة في مصنف دفعة واحدة ' "كلمة السر هي "بسم الله Dim password As Worksheet For Each password In ActiveWorkbook.Worksheets password.Unprotect password:="بسم الله" Next password End Sub سامحني لاني قمت بتعديل الكود ليقوم بفك الحماية أيضا مدام للفائدة فلا أظن انك تمانع تم تعديل يناير 18, 2005 بواسطه محمد حجازي رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر نوفمبر 13, 2004 مشاركة قام بنشر نوفمبر 13, 2004 (معدل) السلام عليكم ... إضافة رائعة أخي smart والباب مفتوح للجميع مادام الهدف هو نشر المعرفة . تم تعديل يناير 18, 2005 بواسطه محمد حجازي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها