تعميم هذا الكود على جميع الصفحات

[صـدّيـق]

ماهي طريقة تعميم هذا الكود على جمعيع الصفحات ؟؟؟؟

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Columns.Count = Columns.Count Then
    Application.EnableEvents = False
    MsgBox "Non, non, suppréssion ligne annulée"
    Application.Undo
    Application.EnableEvents = True
End If
End Sub

[هانى محمد]

....

تم تعديل يناير 15, 2018 بواسطه هانى محمد

[بن علية حاجي]

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

أن تكتبه بالشكل التالي:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Columns.Count = Columns.Count Then
    Application.EnableEvents = False
    MsgBox "Non, non, suppression de ligne annulée"
    Application.Undo
    Application.EnableEvents = True
End If
End Sub

وتضعه في كود حدث ThisWorkbook

بن علية حاجي