ويوضع الكود التالي في حدث الورقة
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4")) Is Nothing Then
Application.ScreenUpdating = False
If Range("A4").Value = 0 And Not IsEmpty(Range("A4")) Then
Call HideAll
ElseIf IsEmpty(Range("A4")) Then
Call ShowAll
End If
Application.ScreenUpdating = True
End If
End Sub
أستاذنا / ياسر
ما المقصود بحدث الورقة ؟؟؟
واين يجب ان اكتب الكود الموجود بأعلى ؟؟
ولك كل الشكر