Trùng: Giúp sửa code để chỉ chạy trên file chứa code

[hunglam123]

Chào cả Nhà GPE. Em có dùng code sau đế nhấn Nút Delete xóa 1 hàng 4 cột cùng lúc. Code thì chạy Ok. Nhưng chỉ đúng khi em mở đúng 1 file này trên máy tính. Còn em mở thêm file khác ( Không đóng file chạy code ) thì khi em nhấn Delete thì code nó cũng xóa 1 hàng 4 cột .
Em muốn code chỉ hoạt động trên file chứa code khi trên máy tính có nhiều file, Các file khác nhấn Delete thì như mặc định chỉ xóa mỗi ô đang chọn
Em xin chân thành cảm ơn

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "data" Then
                If Not Intersect(Target, Range("A1:D100")) Is Nothing Then
                    Application.OnKey "{DELETE}", "chaycode"  ' nhan delete xoa dong
                Else
                    Application.OnKey "{DELETE}"
                End If
                
            
Else
     Application.OnKey "{DELETE}"
End If
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub


Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub

 

[ptm0412]

Tìm hiểu ThisWorkbook, Parent

 

[hunglam123]

Tìm hiểu ThisWorkbook, Parent

Có link không anh. Sao em tìm không thấy trên diễn đàn. cảm ơn anh

 

[ptm0412]

Có link không anh. Sao em tìm không thấy trên diễn đàn. cảm ơn anh

Tìm trong help.

 

[hunglam123]

Tìm trong help.

LÀM ơn giúp code. Em cảm ơn

 

[SA_DQ]

Xem ở đây: https://www.giaiphapexcel.com/diend...lần-2-vì-không-ai-trả-lời.149958/#post-971734