DutoanGXD
SmartSoftware
- Tham gia
- 7/7/07
- Bài viết
- 830
- Điểm thành tích
- 93
- Khi các bạn sao chép một tập tin excel từ một máy tính khác, bạn có thể bị nhiểm các virus macro, các virus này phần lớn là gây khó chịu cho người dùng, ví dụ như tạo ra rất nhiều sheets, hay tạo nhiều bản sao lưu mỗi người dùng thoát khỏi excel.
- Cách hoạt động của các virus này khá đơn giản, thường thì khi người dùng kích hoạt vào file bị nhiễm virus thì virus sẽ tạo 1 bản sao vào thư mục khởi động của excel, mặc định cho lần tiếp theo các file tạo mới đều bị nhiễm. Thư mục khởi động của excel thường nằm ở 2 vị trí sau: (giả sử bạn cài Win và ổ C và dùng office11)
+ C:\Documents and Settings\Tên người dùng\Application Data\Microsoft\Excel\XLSTART\
+ Thư mục cài đặt office\office11\xlstart\
Các chương trình diệt virus vì một lý do rất pro nào đó đôi khi lại bỏ qua các virus này, và thế là ta lại phải can thiệp bằng một cách rất thủ công là xóa nó đi mà thôi.
Ở đây tôi xin trình bày một phương pháp hạn chế sự phát tác của các virus này khi các bạn tạo mới một file excel, đảm bảo sự trong sáng cho file mới tạo.
- Khởi động Excel, nhấn tổ hợp Alt+F11 để mở VBA
Tại cửa sổ Project-VBAProject chọn project hiện tại (thường là book1), bấm chuột phải chọn Insert -> Module
Nhấp đúp chuột vào Module vừa tạo để mở môi trường viết code và nhập đoạn code sau vào: Giả sử virus đó có tên là book.xlt (bạn có thể nhìn rõ tên trong thư mục khởi động của Excel)
---------
Public Sub Aut
pen()
On Error Resume Next
Dim strThumuc As String
strThumuc = Application.Path & "\xlstart\" 'Tim thu muc cai dat Office
Kill (strThumuc & "Book.xlt") 'Diet virus Book
Kill "c:\Documents and Settings\Tên người dùng\Application Data\Microsoft\Excel\XLSTART\Book.xlt"
End Sub
---------
Đóng cửa sổ VBA lại, lưu file vừa tạo thành addin với tên bất kỳ mà bạn muốn, ví dụ Kill_Book.
- Mở lại Excel, chọn menu Tools -> Add-Ins, đánh dấu check vào addin bạn vừa tạo, như vậy từ này mỗi khi khởi động excel sẽ tự delete các file có tên book trong thư mục khởi động.
Lưu ý: tên virus có thể thay đổi, nếu bạn bị nhiều hơn 1 em thì cứ thêm 1 dòng kill vào code và đưa tên em đó vào danh sách đen cần tiêu diệt. have fun!!
- Cách hoạt động của các virus này khá đơn giản, thường thì khi người dùng kích hoạt vào file bị nhiễm virus thì virus sẽ tạo 1 bản sao vào thư mục khởi động của excel, mặc định cho lần tiếp theo các file tạo mới đều bị nhiễm. Thư mục khởi động của excel thường nằm ở 2 vị trí sau: (giả sử bạn cài Win và ổ C và dùng office11)
+ C:\Documents and Settings\Tên người dùng\Application Data\Microsoft\Excel\XLSTART\
+ Thư mục cài đặt office\office11\xlstart\
Các chương trình diệt virus vì một lý do rất pro nào đó đôi khi lại bỏ qua các virus này, và thế là ta lại phải can thiệp bằng một cách rất thủ công là xóa nó đi mà thôi.
Ở đây tôi xin trình bày một phương pháp hạn chế sự phát tác của các virus này khi các bạn tạo mới một file excel, đảm bảo sự trong sáng cho file mới tạo.
- Khởi động Excel, nhấn tổ hợp Alt+F11 để mở VBA
Tại cửa sổ Project-VBAProject chọn project hiện tại (thường là book1), bấm chuột phải chọn Insert -> Module
Nhấp đúp chuột vào Module vừa tạo để mở môi trường viết code và nhập đoạn code sau vào: Giả sử virus đó có tên là book.xlt (bạn có thể nhìn rõ tên trong thư mục khởi động của Excel)
---------
Public Sub Aut
pen()On Error Resume Next
Dim strThumuc As String
strThumuc = Application.Path & "\xlstart\" 'Tim thu muc cai dat Office
Kill (strThumuc & "Book.xlt") 'Diet virus Book
Kill "c:\Documents and Settings\Tên người dùng\Application Data\Microsoft\Excel\XLSTART\Book.xlt"
End Sub
---------
Đóng cửa sổ VBA lại, lưu file vừa tạo thành addin với tên bất kỳ mà bạn muốn, ví dụ Kill_Book.
- Mở lại Excel, chọn menu Tools -> Add-Ins, đánh dấu check vào addin bạn vừa tạo, như vậy từ này mỗi khi khởi động excel sẽ tự delete các file có tên book trong thư mục khởi động.
Lưu ý: tên virus có thể thay đổi, nếu bạn bị nhiều hơn 1 em thì cứ thêm 1 dòng kill vào code và đưa tên em đó vào danh sách đen cần tiêu diệt. have fun!!
Last edited by a moderator:
