ĐỒ ÁN TỐT NGHIỆP CÓ XÂY DỰNG MÔ HÌNH THÔNG TIN CẦU SÔNG HIẾU

 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