¿Cómo recuperar la contraseña olvidada que protege una hoja de cálculo en Excel?
Siempre establecemos contraseñas para proteger hojas de cálculo importantes y evitar que otras personas las modifiquen o dañen. Pero, ¿qué puede hacer si olvida su contraseña? Afortunadamente, Excel admite un código VBA específico que le permite recuperar la contraseña perdida de protección de hoja. Puede resolver este problema de la siguiente manera:
Recuperar la contraseña de protección de hoja de cálculo perdida en Excel con código VBA
Recuperar la contraseña de protección de hoja de cálculo perdida en Excel con código VBA
El siguiente código VBA le permite eliminar rápidamente sus contraseñas originales de una hoja de cálculo.
1. Abra la hoja de cálculo que haya protegido previamente.
2. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.
Código VBA: recuperar la contraseña de protección de hoja de cálculo perdida
Sub PasswordRecovery()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
4. A continuación, pulse la tecla F5 para ejecutar este código; aparecerá un cuadro de diálogo. Haga clic en Aceptar para cerrarlo y las contraseñas de la hoja protegida se eliminarán inmediatamente.
Notas:
1. Con este código, solo podrá recuperar la contraseña de una hoja de cálculo protegida cada vez; si hay varias hojas protegidas, deberá aplicar este código una a una.
2. El código anterior procede de http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.
Artículos relacionados
¿Cómo proteger varias hojas de cálculo simultáneamente en Excel?
¿Cómo desproteger varias hojas de cálculo simultáneamente en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos