Xin Code xóa 1 Sub trong Workbook

[tuan_anhbm]

Chào các bạn,
Mình có 1 file excel, ví dụ: "DuToan.xls" trong đó có 1 Sub:
Private Sub Worksheet_Change(ByVal Target As Range)
'….
End Sub
nằm trong Sheet "BKL", vậy làm sao để xóa Sub này bằng thủ tục VBA ?
Bạn nào biết xin chỉ giúp.
Rất cảm ơn.

 

[MinhNguyệt]

Chào các bạn,
Mình có 1 file excel, ví dụ: "DuToan.xls" trong đó có 1 Sub:
Private Sub Worksheet_Change(ByVal Target As Range)
'….
End Sub
nằm trong Sheet "BKL", vậy làm sao để xóa Sub này bằng thủ tục VBA ?
Bạn nào biết xin chỉ giúp.
Rất cảm ơn.

Bạn vào đây mà tham khảo, thay đổi một chút là được
Thân

http://www.giaiphapexcel.com/forum/showthread.php?t=26587

 

[tuan_anhbm]

Cảm ơn Minh Nguyệt,
Mình copy đoạn code ở địa chỉ trên (Sub ExportBasClsFrm()) đưa vào file và chạy thử thì thấy báo lỗi ngay dòng đầu tiên:
Dim VBComp As VBComponent
Vì trình độ VBA còn "vỡ lòng" nên chưa điều chỉnh theo ý muốn được, bạn có thể chỉ dẫn cặn kẽ cho mình được ko?
-------
Sao không thấy ai giúp mình vậy à?
-------
Tình yêu như bát bún riêu
Bao nhiêu sợi bún bấy nhiêu sợi tình.