¿Cuál es la contraseña para el archivo EXCEL de la máquina de asistencia de huellas dactilares Deli 33025?
El código es el siguiente:
Pasos:
1. Abra Excel que necesita descifrar la contraseña
2. Alt F11 para ingresar a la interfaz de edición de VBA;
3. Insertar --Module
4. En el área de edición en blanco en el lado derecho del módulo, copie y pegue F5. el comando VBA;
Opciones explícitas
Public Sub AllInternalPasswords()
'Rompe la estructura de la hoja de trabajo y del libro de trabajo'.
Bob McCormick
' es probablemente el creador del algoritmo de código base modificado para la estructura del libro de trabajo/contraseña de ventana y cobertura de múltiples contraseñas
'
'Norman Harker y JE McGimpsey 27 de diciembre de 2002 (versión 1.1)
'Modificado por JEM el 4 de abril de 2003: cambió todos los mensajes a constantes y
'Eliminar un sub de salida (versión 1.1.1)
' Muestra la contraseña con hash en lugar de la contraseña original
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE amp;_
"Adaptado del código base de Bob McCormick por " amp; _
"Norman Harker y JE McGimpsey"
Const HEADER As String = "Mensaje de usuario de AllInternalPasswords"
Const VERSION As String = DBLSPACE & "Versión 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE amp "Por favor, informe de error" amp;
"a Microsoft." amp; _
"El libro de trabajo debería " amp _
"ahora estar libre de toda protección con contraseña, así que asegúrese de:" amp; ; _
DBLSPACE amp; "GUARDARLO AHORA!" amp; DBLSPACE "y también" amp _
DBLSPACE & "¡RESPALDO! !" &_
DBLSPACE & "Además, recuerde que la contraseña es " &_
"Está ahí por una razón. No la sobrecargue con fórmulas clave "&_
" o datos "&_
" o datos.
"O datos." amp; DBLSPACE amp; "Acceder y utilizar ciertos datos" amp; _
"Puede violar la ley. En caso de duda, no lo haga".
Const MSGNOPWORDS1 As String = "No hay contraseña en la hoja de trabajo, estructura del libro o ventana. " & AUTORES Y VERSIÓN
Const MSGNOPWORDS2 As String = "No había protección. a " amp; _
"estructura del libro de trabajo o ventanas." amp; DBLSPACE amp; _
"Continuar desprotegiendo la hoja de trabajo.
amp; "El tiempo que lleva" amp; _
"depende de cuántas contraseñas diferentes tenga", amp _
"contraseñas y de las especificaciones de su computadora". amp; DBLSPACE amp; _
"Contraseña y especificaciones de su computadora." amp; DBLSPACE amp; amp; VERSION
Const MSGPWORDFOUND1 As String = "Tenías una hoja de trabajo " & _
"Estructura o contraseña de Windows establecida." & DBLSPACE & _
" La contraseña encontrada es: " & DBLSPACE & "$$" &.DBLSPACE & _
"Anota la contraseña para poder "&_
" configurarla "& DBLSPACE &_
" Verifique y borre otras contraseñas ahora " & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "Tenías una hoja de trabajo " & _
"contraseña establecida ." & DBLSPACE & "La contraseña encontrada fue: " &_
DBLSPACE & " $$" & DBLSPACE & " Toma nota de ella para que " & _
" sea la misma persona Quien establezca esta contraseña podrá usarla en otros libros de trabajo en el futuro " & DBLSPACE & " Compruébelo ahora y borre " & _
" " AUTORES Y VERSIÓN
Const MSGONLYONE como cadena. = "Solo estructura/ventanas " & _
"Protege con la contraseña que acabas de encontrar.
" _
ALLCLEAR amp; AUTHORS amp; VERSION amp; REPBACK
Dim w1 como hoja de trabajo, w2 como hoja de trabajo
Const MSGONLYONE como cadena = "Solo estructura / windows " amp; _
Const MSGONLYONE As String = "Solo estructura / windows " amp; _
"protegido con la contraseña que se acaba de encontrar.w2 Como hoja de trabajo
p>Atenuar i como entero, j como entero, k como entero, l como entero
Atenuar m como entero, n como entero, i1 como entero, i2 como entero
Atenuar i3 como entero, i4 como entero, i5 como entero, i6 como entero
Atenuar PWord1 como cadena
Atenuar ShTag como booleano, WinTag como booleano
Application.ScreenUpdating = False
Con ActiveWorkbook
WinTag = .ProtectStructure o .ProtectWindows
Finalizar con
WinTag = .ShTag = False
Para cada w1 en hojas de trabajo
ShTag = ShTag o w1.WinTag = False