تفعيل الكود غلى جميع الشيكات ال Active

[طارق_طلعت]

بعد التحية

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

و لكن المشكلة ان الأكواد تعمل فقط على شيت و احد و الذى اريدة ان يعمل الكود على جميع الشيتات ال Active حيث ان الملف بة اكثر من 200 شيت و لا استطديع تنفيذ الكود على كل شيت بمفردة

 

و مرفق ملف بة الأكواد المطلوب تعديلها و هى protect , unprotect

 

و شكرا لحسن تعاونكم

 

المخزن.rar

[طارق محمود]

السلام عليكم

أخي العزيز

يلزمك عدة خطوات

أولا: نسخ كود فك الحماية في جميع الورقات ولعمل ذلك

1- إنسخ الكود التالي في الملف عندك

Sub copy_Button()


nm = ActiveSheet.Name
Selection.Copy
For i = 1 To Sheets.Count
    If Sheets(i).Name = nm Then GoTo 10
    Sheets(i).Select
    ActiveSheet.Paste
10    Next


End Sub

2- إلغي الحماية عن الشيتات جميعها

3- أضف زر في إحدي الشيتات وعين له الكود الخاص بفك الحماية

4- كليك يمين علي الزر بعد تعيين الكود له ثم شغل الكود الذي نسخته في الخطوة 1

 

ثانيا : تضع كود الحماية في حدث يخص الملف كله عند تنشيط أي ورقة هكذا

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True


End Sub

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

ثم يمكنك فك الحماية من الزر الذي تم ترتيبه سابقا

 

إليك المرفق وبه الخطوات مفعلة

المخزن.rar