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

[AL_AYMAN]

السادة الزملاء

مرفق كود لاخفاء واظهار الصفوف بناء على قيمة الخلية = 0

ولكن الكود لا يعمل عند حماية الملف ولا اعرف كيف اجعلة يعمل

وايضا اريد ان اضيف شرط فى الكود وهو عند الاظهار ان يظهر الخلايا التى لا تساوى 0 

برجاء افادتى بالحل لاننى احتاجة ضرورى جدا وهذا هو الكود

وشكرا

 

Sub show_B()

  Application.ScreenUpdating = False

 

    Rows("9:350").Select

    Selection.EntireRow.Hidden = False

        Range("a3").Select

 

 

  Application.ScreenUpdating = True

 

End Sub

 

Sub Hidden_B()

Application.ScreenUpdating = False

    Range("b9:b350").Select

For Each cell In Selection

If cell.Value = 0 Or cell.Value = "" Then

cell.EntireRow.Hidden = True

End If

Next cell

    Range("a3").Select

 

Application.ScreenUpdating = True

End Sub

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

 

 

 

 

Sub show_B()

Application.ScreenUpdating = False

    On Error Resume Next

     "ActiveSheet.Unprotect "11111

       Rows("9:350").Select

    Selection.EntireRow.Hidden = False

        Range("a3").Select

 

 ActiveSheet.Protect "11111"

      Application.ScreenUpdating = True

 End Sub

 

 

Sub Hidden_B()

Application.ScreenUpdating = False

    On Error Resume Next

     "ActiveSheet.Unprotect "11111

    Range("b9:b350").Select

For Each cell In Selection

If cell.Value = 0 Or cell.Value = "" Then

cell.EntireRow.Hidden = True

End If

Next cell

    Range("a3").Select

 ActiveSheet.Protect "11111"

      Application.ScreenUpdating = True

End Sub

 

 

 

[احمد ابوزيزو]

الاخ الكريم

السلام عليكم ورحمة الله

الحل

كما تفضل الاستاذ / ابو حنين

هو اضافة سطرين للكود

الاول هو لفك الحماية عن الشيت " ActiveSheet.Unprotect "11111 وكلمة السر هنا 11111

السطر الاخير لاضافة الحماية مره اخري " ActiveSheet.Protect "11111"

ويشترط هنا عدم تغير كلمة السر الا من خلال الكود نفسه حتي لا تتعارض كلمة السر المسجلة بالكود مع كلمة السر المدونة من خلال الشيت

هذا ............ الله تعالي اعلم