lethihonglinh nói:
Chao cac ban
minh cung dow chuong trinh nay nhung khong su dung duoc
co the huong dan chi tiet hon duoc khong
To : honghanh & lethihonglinh
Các bạn có thể tham khảo bài viết “Phần mềm kế toán bằng Excel ASD2.0 trong : Diễn đàn\Tin học\Phần mềm kế toán
Sở dĩ bạn không chạy được chương trình này là vì 3 lý do :
1 - Bạn sử dụng phần mềm diệt virus BKAV và để chế độ quét tất cả các Macro nên khi mở ASD2.0 thì BKAV sẽ tự động xóa các mã Macro đính kèm nên chương trình không hoạt động được nữa
2 - Đường dẫn các file dùng cho chương trình kế toán không chính xác do bạn giải nén không đúng vào ổ C
3 - Khi chạy chương trình, có 1 Macro tên là Aut

pen() tự khởi động và kiểm tra ngày hệ thống trên máy tính của bạn, nếu vào thời điểm sau ngày 11/09/2002 thì chương trình cũng không được phép hoạt động nữa
Vậy ta có thể làm theo các bước sau để chạy được chương trình :
1 - Trong BKAV\Tùy chọn\Chọn kiểu file ta bỏ dấu chọn Tất cả các Macro
2 - Download ASD2.0 về máy tính, giải nén và copy sao cho thư mục ASD2.0 nằm trong ổ C. Khi đó đường dẫn của file chạy chương trình như sau : C:\ASD2.0\CTASD\ASD.XLS
3 - Giữ phím Shift và nhấp đúp vào file ASD.XLS này.
Nếu có thông báo : “The document you are opening contains macros. Some macros may contain harmful viruses. If you are sure this document is from a trusted source, click Yes. If you are not sure and want to prevent any macros from running, click No.” thì ta chọn No
Nếu có thông báo : “C:\...\ASD.XLS contains macros. Macros may contain viruses. It is always safe to disable macros, but if the macros are legitimate, you might lose some functionality.” thì ta chọn Disable Macros
Cửa sổ chương trình hiện ra, ta nhả phím Shift
Ghi chú : thao tác này nhằm để macro Aut

pen() không khởi động được
4 - Ta tiếp tục nhấn Alt+F11 để mở Visual Basic Editor. Cửa sổ VBA (Visual Basic for Application) hiện ra với các Project nằm tại góc trên bên trái màn hình. Ta kích vào project ASD.XLS và thấy rằng project này có 7 modules. Nếu cẩn thận ta kiểm tra lần lượt các module này xem có đoạn chương trình nào có dạng Sub Auto_open() ... End sub. Tất cả các mã macro nằm trong đoạn chương trình này đều có khả năng tự kích hoạt khi chạy file excel nên rất có nguy cơ là virus phá hoại
Cụ thể trong project này, ta kích vào modules MroTQ, thực hiện lệnh Find với từ khóa “Auto_open” và ta sẽ tìm thấy đoạn chương trình này có dạng như sau :
Sub Aut

pen()
Application.ScreenUpdating = False
Sheets("ASD").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
If Selection.Value < 37510 Then
Else
GoTo TBASD1
End If
Let Application.Caption = "KE TOAN BANG EXCEL"
CODE = InputBox("CHUC MUNG BAN DA DEN VOI KE TOAN ASD2.0 - XIN CHAN THANH CAM ON ", "ASD - KETOAN BANG EXCEL")
Range("A1").Select
OPEN_CSDL
OPEN_MHSCT
GO_ASD
Exit Sub
TBASD1:
DialogMsg = " CHU Y : BAN KHONG THE SU DUNG CHUONG TRINH ASD2.0!"
DialogTitle = "ASD - KE TOAN BANG EXCEL"
DialogType = MB_OKCANCEL + MB_ICONEXCLAMATION
Response = MsgBox(DialogMsg, DialogType, DialogTitle)
If Response = 1 Then
DONG
Else
DONG
End If
End Sub
5 - Ta thấy dòng lệnh : "If Selection.Value < 37510 Then" có tác dụng kiểm tra giá trị của ngày hiện thời. Ta sửa dòng lệnh này lại như sau : "If Selection.Value > 1 Then", nhấn Save, và close VBA, save file ASD.XLS, và close excel
Sau khi thực hiện các bước trên, chương trình đã sẵn sàng hoạt động. Mỗi khi chạy chương trình ta nhấp đúp vào file chạy là C:\ASD2.0\CTASD\ASD.XLS, chọn Enable Macros khi được hỏi. Ngoài ra ta cũng cần có font VNI để font chữ trên chương trình thể hiện đúng ./.