Private Sub Workbook_Open()
DummyFunc9 &H480, ObjPtr(Application), 0
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
DummyFunc9 &H502, ObjPtr(Sh), ObjPtr(Target)
End Sub
Nếu DLL kia là "xịn" thì chỉ việc đặt vào nơi mà system có thể tìm thấy là xong, có gì là to tát? DLL này nếu "xịn" thì cũng như các DLL của system, DLL của các bạn tạo ra bằng vd. VB6 rồi đăng ký. Có cần làm thêm gì khác đâu? Còn nếu DLL là kẻ không đàng hoàng thì bai bai. Thế thôi.
File này sao không chạy được bạn nhỉNhờ diễn đàn mở pass file.
cám ơn diễn đàn
Bạn tách được file này từ pm doneex cũng là quá đỉnh ! nhưng code ko chạy được crash chương trình khi mở nó.Nhờ diễn đàn mở pass file.
cám ơn diễn đàn