¿Cómo ver el código VBA de Excel?
Mantén presionado ALT+F11 para abrir el editor VBA.
¿Solo quieres descifrarlo?
Cree un nuevo libro de Excel, Alt+F11 para abrir el editor VBA, cree un nuevo módulo y copie el siguiente código. Tenga en cuenta que si la variable no está definida, simplemente elimine la línea Option Explicit. la prueba ha pasado
'Eliminar protección de codificación VBA
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename. ("Archivos Excel (*.xls y *.xla),*.xls;*.xla", , "VBA crack")
Si NombreDeArchivo = CStr(False) Entonces
Salir de Sub
Else
VBAPassword FileName, False
Fin si
End Sub
'Establecer VBA protección de codificación
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Archivo de Excel (*.xls y *.xla), *.xls ;*.xla", , "VBA crack")
Si NombreDeArchivo = CStr(False) Entonces
Salir de Sub
De lo contrario
VBAPassword Nombre de archivo, Verdadero
Fin si
End Sub
Función privada VBAPassword(Nombre de archivo como cadena, Protección opcional como booleano = Falso)
Si Dir(FileName) = "" Entonces
Salir de la función
De lo contrario
FileCopy FileName, FileName & ".bak"
Finalizar si
Atenuar GetData como cadena * 5
Abrir nombre de archivo para binario como #1
Atenuar CMG tanto tiempo
Atenúe 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
Siguiente
Si CMGs = 0 Entonces
MsgBox "Establezca primero una contraseña de protección para la codificación VBA...", 32, "Preguntar"
Función de salida
Finalizar si
Si es profesional
tect = False Then
Dim St As String * 2
Dim s20 As String * 1
'Obtiene una cadena hexadecimal 0D0A
Obtener #1, CMGs - 2, St
'Obtener una cadena hexadecimal 20
Obtener #1, DPBo + 16, s20
'Reemplazar la parte cifrada del código de máquina
Para i = CMGs a DPBo Paso 2
Coloque #1, i, St
Siguiente
'Agregar símbolos no coincidentes
Si (DPBo - CMGs) Mod 2 <> 0 Entonces
Ponga #1, DPBo + 1, s20
Finalice si
MsgBox "Archivo descifrado correctamente...", 32, "Preguntar"
Else
Atenuar MMs como cadena * 5
MMs = "DPB ="""
Ponga #1, CMG, MM
MsgBox "El cifrado especial del archivo fue exitoso...", 32, "Preguntar"
Finalizar si
Cerrar #1
Finalizar función