Execl está infectado con un virus de macro. ¿Cómo puedo eliminar la macro manualmente sin software antivirus?

Método 1: eliminarlo eliminando la macro automáticamente.

1. No abra ningún archivo de Excel.

2. Cree un nuevo documento de texto, cámbiele el nombre a Libro1 y elimine la extensión.

3. Busque esta carpeta: C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART. Si hay un archivo Book1, reemplácelo.

4. Luego abra el archivo de Excel envenenado, cree una nueva tabla y copie el contenido de esta nueva tabla.

Método 2: Eliminar usando el código del programa.

Crear un nuevo libro. xls, ingresa a su editor de macros (Alt + F11) y agrega el siguiente código en ThisWorkbook:

Private Sub Workbook_Open()

Dim WorkbookInfected As Boolean

Dim ad As Object

Dim strVirusName As String

Dim intVBcomponentNo As Integer

Dim i As Integer

'Las siguientes dos oraciones son Marca de infección de virus y nombre del virus, debido a que debe escanearlo usted mismo, use "&" para conectar la cadena para evitar errores de juicio

'Reutilización del código, para diferentes virus puede modificar las dos oraciones siguientes

Const Marker = "<- ¡este es otro marcador" & "! Si ActiveWorkbook.Name = Me.Name Entonces

ActiveWindow.ActivateNext

Si ActiveWorkbook.Name = Yo .Name Then GoTo EndRun

End If

'El número de posiciones donde puede existir el código de macro VB

intVBcomponentNo = ActiveWorkbook.VBProject.VBComponents.Count

IntVBcomponentNo = ActiveWorkbook.VBProject.VBComponents.CountVBComponents.Count

Para i = 1 a intVBcomponentNo

Establecer anuncio = ActiveWorkbook.VBProject.VBComponents.Item(i)

'Si se incluyen o no cadenas de características

WorkbookInfected = ad.CodeModule.Find(Marker, 1, 1, 10000, 10000)

'Si contiene características string, luego de -virus If WorkbookInfected = True Then

'Si el virus es una infección adicional, modifique esta oración.

Tenga en cuenta que esta es una macro de eliminación completa...

ad.CodeModule.DeleteLines 1, ad.CodeModule.CountOfLines

'Mensaje de aviso

MsgBox ActiveWorkbook .FullName & "was" & strVirusName & _

"Infección por virus de macro. ¡Eliminado!", vbInformation, "By:Ray.Deng"

End If

Siguiente

'Cerrar el archivo abierto

ActiveWorkbook.Close 1

'Cambiar al siguiente archivo.

ActiveWindow.ActivateNext

Wend

EndRun:

End Sub

Compile y guarde en el disco, luego busque todos los archivos *.xls, todos seleccione (excepto el Book.xls recién compilado: mantenga presionada la tecla Ctrl y haga clic), haga clic con el botón derecho en "Abrir", si se le solicita que abra el archivo, abra la macro, haga clic en "No abrir" para no abrir la macro. Luego, además de abrir el Book.xls recién compilado, elija abrir macros.