السادة الزملاء
مرفق كود لاخفاء واظهار الصفوف بناء على قيمة الخلية = 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