martes, 23 de octubre de 2012

Como quitar la contraseña a una hoja de Excel






Hace ya algún tiempo, impartí una capacitación a un grupo de funcionarios de una empresa sobre las Herramientas Intermedias de Excel.

Dentro de este taller hay un módulo que se llama Seguridad en Excel, donde aprenden a colocar contraseñas a las hojas, o al libro, definir qué celdas se pueden modificar, o cuales son solo de lectura.

Un tiempo después, una señora que había llevado el taller me llama por teléfono, indicándome que había aplicado el conocimiento, pero que no recordaba la contraseña y si conocía algún método para quitar la contraseña de seguridad de una hoja de Excel.

En ese momento no lo sabía, así que le pregunte a mi amigo GOOGLE, y después de investigar unos 5 minutos encontré la respuesta.


Se trata de una Macro, que simplemente se copia, se ejecuta y en cuestión de menos de un minuto (dependiendo de la velocidad de la computadora), la seguridad de la hoja se rompe.

Los pasos a seguir son los siguientes:

1. Abrir el archivo y posicionarse en la hoja que tiene la seguridad.

2. Presionas las teclas ALT -F11 para entrar al Visual Basic for Application.

3. Estando en Visual Basic vamos al menú Insertar, y seleccionamos la opción de Módulo



4. En la ventana en blanco copiamos el siguiente código:
Sub breakit()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n 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

5. Cerramos el Visual Basic y regresamos al Excel.

6. Estando en el Excel, vamos a la etiqueta Vista, y desplegamos el botón Macros, y luego seleccionamos Ver Macros.

7. Ahora la ventana de Macros, seleccionamos BreakIt y presionamos el botón Ejecutar.


8. Finalmente después de unos segundos la Macros nos devolverá una ventana con un código, que simula la contraseña que tenía ingresada.

Ahora ya podrá modificar fácilmente la hoja, pues la seguridad se ha eliminado...


Si tuviesen alguna consulta no dudes en indicamela y con gusto los ayudo.

Ing. Enrique Neciosup Morales
enrique@expertosenexcelpc.com 
Síguenos en Facebook