Eliminar Contraseña En Hojas De Excel

Eliminar contraseña en hojas de Excel
1. En la hoja bloqueada, presionamos Alt+F11 para que nos aparezca el editor de Visual Basic

2. Seleccionamos la carpeta raíz en nuestro proyecto, Click conel botón derecho. En el menú que aparezca escogemos Insertar - Módulo

3. Aparecerá una ventana para escribir un código. En esa ventana pegaremos el código siguiente: Sub Quitar_contraseña() Dim aAs Integer, b As Integer, c As Integer Dim d As Integer, e As Integer, f As Integer Dim a1 As Integer, a2 As Integer, a3 As Integer Dim a4 As Integer, a5 As Integer, a6 As Integer On Error Resume NextFor a = 65 To 66: For b = 65 To 66: For c = 65 To 66 For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66 For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66 For a5 = 65 To 66: For a6 = 65 To 66:For f = 32 To 126 Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _ & Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f) ActiveSheet.Unprotect Contraseña IfActiveSheet.ProtectContents = False Then MsgBox "¡Proceso Exitoso!" & vbCr & "Se ha quitado la contraseña:" & vbCr & Contraseña Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next EndSub

4. Una vez pegado el código podemos cerrar la ventana, y al regresar a pantalla de Excel presionaremos Alt+F8 para que nos permita ejecutar la macro que acabamos de crear. Al estarseleccionada presionaremos el botón Ejecutar, y solo tenemos que esperar. Al final se mostrará un mensaje para confirmar que tuvimos éxito. A partir de entonces, la contraseña estará eliminada.

5. Notas: Elcódigo adjunto se ejecutará en la hoja que se encuentre seleccionada, por lo tanto, solo podrá desbloquear una hoja a la vez. Es normal que la máquina se quede bloqueada por unos instantes mientras seejecuta la macro. No ha demorado más de un minuto y medio en mis pruebas. Si se trabaja con Excel 2007 o 2010 y se desea conservar la macro, es necesario guardar el archivo como Libro habilitado...