الاخ الحبيب و الاستاذ الفاضل "خبور خير" استسمحك على هذه الملاحظة و هي ان عند كتابة
Target.RowHeight = 0
يصبح ارتفاع الصف 0 و هذا يؤدي الى اختفاء الصف
و هذه مساهمة اخرى مني لاثراء الموضوع و هي في حدث
Worksheet_BeforeDoubleClick
الكود :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Target = ActiveCell
If ActiveCell.Value = 0 Then
Target.RowHeight = 15
Else
Target.RowHeight = 30
End If
End Sub