BLOG CỦA TÔI

  Để xử lý triệt để virus Macro trên các file Excel bạn hãy thực hiện các bước sau: Bước 1 : Download  Bkav Anti-Macro Virus  tại:  http://www.bkav.com.vn/home/download/BkavAntiMacroVirus.exe Bước 2 : Chạy chương trình  Bkav Anti-Macro Virus , trong cửa sổ chính bấm  Chọn thư mục...  để chọn thư mục cần quét virus Macro. Bước 3 : Trong cửa sổ  Browse for Folder , bạn hãy chọn thư mục hoặc ổ đĩa chứa các file Excel cần quét virus Macro, bấm  OK Bước 4 : Thiết lập cấu hình quét: + Sao lưu trước khi diệt : Trong quá trình quét, khi phát hiện ra file Excel bị nhiễm virus Macro, chương trình sẽ sao lưu lại các file Excel này trước khi xử lý virus. Bạn có thể sử dụng  Bkav Restore  để khôi phục lại các file này nếu cần (download  Bkav Restore   tại đây ). Lưu ý : Bạn nên chọn sao lưu trong thư mục ở ổ đĩa còn trống nhiều nhất trên máy. Nếu không chọn thư mục sao lưu dữ liệu, chương trình sẽ tự động sao lưu vào thư mục ...

 MÃ VBA EXCEL GIÓNG HÀNG CỘT Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 https://quantrimang.com/cach-tu-dong-to-mau-hang-cot-trong-excel-164634 Static xRow Static xColumn If xColumn <> "" Then With Columns(xColumn).Interior .ColorIndex = xlNone End With With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 6 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub

 Mã VBA EXCEL XÓA VIRUT  Sub KillFoxz() Dim WB As Workbook On Error Resume Next Application.DisplayAlerts = False Application.EnableEvents = False For Each WB In Workbooks     WB.Sheets("foxz").Delete Next With Workbooks("NEGS.XLS")     .ChangeFileAccess xlReadOnly     Kill .FullName     .Close False End With Application.EnableEvents = True Application.DisplayAlerts = True End Sub