حماية كافة أوراق العمل وإلغاء الحماية & الحماية بمجرد تنشيط ورقة العمل

[سـامي 169]

Sub طلبه ()
   
    Sheets("الرئيسية ").Select
       MyPassword = "1"
For Each MySheet In ActiveWorkbook.Sheets
    MySheet.Protect _
        Password:=MyPassword, _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        UserInterfaceOnly:=True
Next MySheet
End Sub

اريد شرح الكود كرما منكم

[ياسر خليل أبو البراء]

يرجى وضع الكود بين أقواس الكود ..كما يرجى إرفاق الملف الذي يحوي الكود

راجع التوجيهات

http://www.officena.net/ib/index.php?showtopic=60147

 

أعتقد أن الكود يقوم بحماية كافة أوراق العمل مرة واحدة بكلمة السر 1

[سـامي 169]

     Sheets("الطلبه").Select
   MyPassword = ""
For Each MySheet In ActiveWorkbook.Sheets
    MySheet.Protect _
        Password:=MyPassword, _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        UserInterfaceOnly:=True
Next MySheet
End Sub
End Sub

طلبت من اجد الاحوة كود يحمي الورق فاعطاني اياه وانقطعت اخباره في النت

[علي الشيخ]

السلام عليكم

مرحبا اخي

الكود فعلا هيحمي كل أوراق ملف الإكسل مرة واحدة كما أشار الأستاذ ياسر

وممكن بدون أكود من تبويب Review

تختار  Protect Sheet

هتظهر نافذه هتضع علامه في الخيارات التي ترغب في استثنائها من الحماية  ثم تكتب كلمة السر وتضغط اوكي

وتعيد إدخال كلمة السر مرة أخرى وسيتم حماية الورقة ويمكن إعادة الكره في الأوراق المرغوب حمايتها

 

أو كما ذكرنا استخدام الكود هيحمي كل الأوراق مرة واحدة

والتالي كودين كود للحماية وكود لفك الحماية عن طريق أزرار تعملها في  أي شيت يعجبك

 

كود الحماية

والباسورد مكتوبه في الكود 123 يمكنك تغيرها زي ما تحب

Sub protectsht()
For Each MySheet In ActiveWorkbook.Sheets
    MySheet.Protect _
        Password:="123", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        UserInterfaceOnly:=True
Next MySheet
End Sub

كود فك الحماية

Sub unprotectsht()
For Each MySheet In ActiveWorkbook.Sheets
    MySheet.Unprotect _
        Password:="123"
Next MySheet
End Sub

[سـامي 169]

تسلسلك في الشرح سهل الاستاذ علي الشيخ

جزاك الله كل خير

ممكن يعمل الكود مع  انتقالنا من ورقة الى اخرى

وارفق ملف كرما منك

[سـامي 169]

كيف الغي اعمده معينه من الحمايه

[سليم حاصبيا]

  بعد اذن الاساتذة اليك هذا الكود ليلغي الحماية عن بعض الاعمدة

 

اعمدة حرة.rar

[سـامي 169]

جزاكم الله خيرا

ممكن يعمل الكود بدون الضغط على ازرار ولو عملنا فك حمايه وانتقالنا من ورقة الى اخرى

ورجعنا لنفس الورقه تاني نلقاها محميه

[ياسر خليل أبو البراء]

الأخ الفاضل

إليك الملف التالي .. عند اختيار ورقة العمل اي تنشيطها يتم حماية ورقة العمل

 

يوضع الكود التالي في موديول

Sub PortectAll()
'يقوم الكود بحماية كافة أوراق العمل في المصنف النشط
'---------------------------------------------------
    Dim SH As Worksheet
    For Each SH In ActiveWorkbook.Sheets
        SH.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    Next SH
    Sheet1.Select
End Sub

Sub UnprotectAll()
'يقوم الكود بإزالة الحماية عن كافة أوراق العمل في المصنف النشط
'--------------------------------------------------------------
    Dim SH As Worksheet
    For Each SH In ActiveWorkbook.Sheets
        SH.Unprotect Password:="1"
    Next SH
    Sheet1.Select
End Sub

Sub ProtectActiveSheet()
'يقوم الكود بحماية ورقة العمل النشطة
'-----------------------------------
    ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End Sub

كما يوضع الكود التالي في حدث المصنف

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Call ProtectActiveSheet
End Sub

تقبل تحياتي

Protect & Unprotect All Sheets YasserKhalil.rar

[سـامي 169]

 

جميل جدا ولكن عند فتح الملف استطعت الكتابه في الصفحة الاولى

وهذا مرفزض عايزين عند فتح الملف يكون محمي

وان فككنا الحمايه في الصفحة اللي احنا واقفين فبها ...وانتفلنا الى صفحة تانيه تتم الحمايه تاني

لاتنس ان يكون مرفق تاني 2003

 

[ياسر خليل أبو البراء]

تفضل أخي الكريم

ولا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

Protect & Unprotect All Sheets YasserKhalil V2.rar

[أبو العاصم]

السيد الاستاذ الكبير ياسر خليل 

هل بالامكان التعديل على الكود الجميل لأتمكن من الجروب والان جروب بعد وضع كود الحماية

[ياسر خليل أبو البراء]

السيد الاستاذ الكبير ياسر خليل 

هل بالامكان التعديل على الكود الجميل لأتمكن من الجروب والان جروب بعد وضع كود الحماية

لم أفهم المطلوب صراحة

[سـامي 169]

 

فاضل تكه باكبير

فيه نغض الاعمده والخلايا المعيته مطلوب الكتابه فيها

[سـامي 169]

كل ورقه لها اعمده وخلايا غير الورقه التانيه

[ياسر خليل أبو البراء]

الخلايا المراد أن تكون غير محمية يكفي أن تغير تنسيقها ..حدد الخلايا (أعمدة صفوف خلايا متجاورة خلايا غير متجاورة ) ثم كليك يمين ثم من التبويب Protection وأزل علامة الصح بجانب الخيار Locked وكذلك أزل علامة الصح من جانب الخيار Hidden

[سـامي 169]

 

يبارك فيك ربنا

والمعادلات مش عايزينها تظهر

[ياسر خليل أبو البراء]

الخاصية Hidden  تستخدم لإخفاء المعادلات ..

نفس الخطوات في المشاركة السابقة لي حدد الخلايا ونسق الخلايا وخلي Hidden جنبها علامة صح .. انتهي

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب

وإذا كان لديك طلب آخر فيرجى طرح موضوع جديد حتى لا يطول الموضوع بدون داعي

تقبل تحياتي

[أبو العاصم]

 

السيد الاستاذ الكبير ياسر خليل 

هل بالامكان التعديل على الكود الجميل لأتمكن من الجروب والان جروب بعد وضع كود الحماية

لم أفهم المطلوب صراحة

 

عند حماية الملف

لا تكون خاصية GROUP VS UNGROUP  مفعلة

فهل هناك كود يقوم ل\بالحماية مع إتاحة هذه الخاصية والملف محمى

[ياسر خليل أبو البراء]

أخي الكريم أبو عاصم (مش ناوي تغير اسم الظهور للغة العربية)

إليك الملف التالي عله يكون المطلوب

تم إضافة هذا السطر لأكواد الحماية

.EnableOutlining = True

Protect & Unprotect All Sheets YasserKhalil V3.rar

[أبو العاصم]

الأخ الكبير ياسر خليل

بارك الله فيك 

ماشاء الله عليك عبقرى

لقد قمنا بالامتثال لنوجيهك بتعديل اسم الظهور للغة الزهور اللغة العربية

 

هل بالإمكان تمكين خاصية الفلتر والسورت من داخل الكود

ثم رجاء متابعة طلبى المحدود فى مشروع كشف الخزينة وايصالات الصرف 

على الرابط 

http://www.officena.net/ib/index.php?showtopic=61638