اذهب الي المحتوي
أوفيسنا

حماية اوراق العمل


الردود الموصى بها

اخوتى الكرام

السلام عليكم

مرفق ملف يحتوي على طريقة لحماية جميع اوراق العمل

عن طريق ماكرو 

كلمة فك حماية الصفحات

yara

عن طرق الذهاب الي review

protect sheet

أتمني أن ينال اعجابكم

 المرفقات:

========   :fff: 

 

Protect Sheets.rar

 

========   :fff: 

:signthankspin:

  • Like 2
رابط هذا التعليق
شارك

جزاك الله خيراً أخي الحبيب خالد

ولكن هل لك أن توضح الأكواد وتشرح لها شرح مبسط ..حتى يتسنى للأخوة الأعضاء الاستفادة منها ..

الملف يحتوي على أكواد رائعة ..كمل جميلك وفوق الراس نشيلك

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

عزيزي ياسر

الفكرة كلها عبارة عن القيام بتسجيل عدد 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 Worksheet
For Each ws In ActiveWorkbook.Sheets
(protect code )  هنا ستجدة ضمن الماكرو الذذي قمت بتسجيلة
Next ws

لكن لا تنسي ايقاف ومض الشاشة في الاول و في اللنعاية تعيد تشغيلة (Application.ScreenUpdating = False)
بنعمل ماكرو لفك الحماية بالاستعانة بالماكرو الثاني الذي قمنا بتسجيلة في الاول
ونتيجة لقيام البعض بتغيير اسم الورقم فأنة من الافضل الحماية باسم الورقة و حماية بكود الاسم (علي سبيل المثال) 
Sheet1(Sheet1)  ......  Sheet1(Data)
الاسم الاول عبارة عن  كود الاسم و الجزء الثاني عبارة عن أسم الورقة
بالتالي الحماية عن طريق الاثنين حتي اذا تغير اسم الورقة يكون كود الورقة شغال
الان يتم استبعاد ورقة بدون حماية
Sub Protect_Name_Exclude_If()
هذه فكرة العمل بشكل سريع و يمكن لك تتبع الخطوات و أرجو منك القيام بتسجيل اكثر من ماكرو و تغيير الاختيارات في كل مرة و شاهد الاختلاف
أرجو أن اكون قد وضحت لك ما تريد
الف شكر لك
  • Like 2
رابط هذا التعليق
شارك

  • 1 month later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information