Cómo eliminar macros de Excel

Herramientas - Macros, seleccione el nombre de la macro que desea eliminar y luego seleccione Eliminar.

El botón Eliminar es gris y el editor puede estar protegido con contraseña.

Cree una nueva hoja de trabajo, presione ALT F11 para ingresar al editor VBA, cree un nuevo módulo, copie el siguiente código en él, ejecute la macro MoveProtect para eliminar la contraseña y luego elimine la macro.

Eliminar la protección de codificación VBA.

Sub MoveProtect()

Anota el nombre del archivo como una cadena

filename = application. getopen filename("Excel file(*.xls amp;*. xla), *. /p>

Nombre del archivo de contraseña VBA, Falso

Terminará si...

Finalizar conector

Establecer protección de codificación VBA

Protección de subconjunto()

Anota el nombre del archivo como una cadena

filename = application. getopen filename("Archivo Excel (*.xls y *.xla). ), *.xls *.xla", "VBA crack")

Si FileName = CStr(False), entonces

Salir del conector

Otros

Nombre del archivo VBAPassword, Verdadero

Terminará si...

Finalizar conector

Función privada VBAPassword (el nombre del archivo es una cadena, opcional la protección es booleana = falsa)

Si directorio(nombre de archivo) = ", entonces

Salir de la función

Otro

Copiar archivo nombre de archivo, nombre de archivo y. ".bak "

Terminará si...

Dim GetData As String * 5

Abra el nombre del archivo binario como #1

Atenuar DPBo mientras

Atenuar DPBo mientras

Para i = 1 a LOF(1)

Obtenga #1 ,I,GetData

Si GetData = "CMG=" "" entonces CMGs = i

Si GetData = "[Host " entonces DPBo = i - 2: Salir para

Entonces

Si CMGs = 0, entonces

MsgBox "Establezca primero una contraseña de protección para la codificación VBA...", 32, "Preguntar"

Salir de la función

p>

Terminará si...

Si Protect = False, entonces

Dim St As String * 2

Mostrar s20 como cadena * 1

Obtener la cadena hexadecimal 0D0A.

Obtenga #1, CMG - 2, St

Obtenga una cadena hexadecimal de 20.

Obtenga #1, DPBo 16, s20

Reemplace la parte de cifrado de la clave

Para i = CMG a DPBo paso 2

Ponga #1, I, St

Luego

Agregue símbolos no emparejados

si (DPBo-CMGs) Mod 2 lt gt entonces 0

Ponga #1, DPBo 1, s20

Terminará si...

MsgBox "Archivo descifrado exitosamente...", 32, "Preguntar"

Otro

Mostrar MMS como cadena * 5

MMs = "DPB= " "

Pon #1, SMS, MMS

MsgBox "Cifrado especial de archivo exitoso...", 32, "Preguntar"

Finalizará si...

Cierre #1

Función final