Herramientas en Excel

隆Al fin! Ya Puedes Desbloquear tu hoja Excel.

Raymundo Ycaza
#Macros (VBA)#Seguridad#Trucos Excel#馃 Automatizaci贸n con Excel

Editado el: 17/3/2014

驴Te ha pasado que el anterior empleado dej贸 una planilla de Excel que hac铆a varios c谩lculos, pero la hoja est谩 bloqueada con contrase帽a? Seguramente has tratado de adivinarla, incluso de contactar a esa persona para poder usar tu tan preciado formato y no tener que hacerlo todo de nuevo.

Sin embargo, existe una soluci贸n al alcance de todos. No es necesario invertir dinero en un programa especializado para poder recuperar el control de tu archivo.

Con estos 8 pasos podr谩s desbloquear tu archivo聽hoja en 5 minutos (o menos)

聽Desbloquear la hoja de Excel

  1. Pincha con el bot贸n derecho del mouse sobre el nombre de la hoja que pretendes desbloquear y selecciona la opci贸n 鈥淰er C贸digo鈥 o accede directamente al editor de VBA, como te mostr茅 antes.[atajo titulo=鈥淎tajo de teclado:鈥漖聽ALT + F11[/atajo]
  2. En la nueva ventana que se abri贸, puedes hacer un doble clic sobre el nombre de la hoja que quieres desbloquear.
  3. Una vez hecho esto, en la parte derecha, en la zona blanca, pega el c贸digo que te proporciono al final de la presente entrada.
  4. Cierra la ventana, pues hemos terminado con esta parte y ya puedes volver a tu hoja de Excel.
  5. En la cinta, selecciona la opci贸n View (Ver)
  6. Dir铆gete a la opci贸n de Macros y selecciona View Macros (Ver Macros)
  7. La macro 鈥楧esbloquearHoja鈥 debe aparecer listada en el cuadro de di谩logo que se muestra. Lo que vas a hacer ser谩 seleccionarla y pinchar en el bot贸n Run (Ejecutar)
  8. Dentro de unos instantes (generalmente demora muy poco) te aparecer谩 un mensaje como el de la siguiente imagen. No te preocupes por la contrase帽a que muestra, lo importante es que ha conseguido desbloquear tu hoja y est谩 lista para que la guardes en un lugar seguro.隆Listo! Esa hoja que ten铆as guardada por ah铆 durante tanto tiempo ahora est谩 operativa nuevamente. 驴No te esperabas que fuera tan sencillo, verdad?

[aviso titulo=鈥淣ota Importante:鈥 tipo=鈥測ellow鈥漖Lo que te explico en esta entrada solo te sirve para desbloquear HOJAS que est谩n protegidas con contrase帽a. Para desbloquear LIBROS o ARCHIVOS que est谩n bloqueados, deber谩s usar otra soluci贸n.[/aviso]

El c贸digo

A continuaci贸n te dejo el c贸digo que debes pegar en la ventana del editor de Visual Basic. C贸pialo tal cual lo tienes dentro del siguiente recuadro y p茅galo donde corresponde, siguiendo las instrucciones.

Option Explicit

Sub DesbloquearHoja()

Dim Contrasenia As String Dim a As 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 Next

For 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

Contrasenia = 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 Contrasenia If ActiveSheet.ProtectContents = False Then MsgBox 鈥溌o he logrado!鈥 & vbCr & _ 鈥淟a Contrase帽a es:鈥 & vbCr & Contrasenia Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next

End Sub

El secreto ha sido revelado

Ahora que ya sabes el secreto, haz el bien. Que esto te sirva tambi茅n para que hagas conciencia del nivel de seguridad que te da un sencillo bloqueo a nivel de hoja.

Generalmente, este tipo de protecci贸n la debemos destinar para uso interno de la empresa, como por ejemplo enviar listados, informes, requisiciones, etc. donde la seguridad no juega un papel cr铆tico.

[aviso titulo=鈥淣ota:鈥 tipo=鈥測ellow鈥漖La finalidad de la protecci贸n a nivel de hoja, es evitar las alteraciones por acciones involuntarias del usuario. En ning煤n momento debe considerarse una medida de seguridad propiamente dicha ya que, como has visto, cualquiera puede saltarse esta protecci贸n.[/aviso]

驴Y t煤, ya usas este m茅todo?

Yo ya he contado mi parte, ahora te toca a ti. Cu茅ntame acerca de tu experiencia con los bloqueos a nivel de hoja en Excel. 驴Ya has usado antes esta t茅cnica?

Seguramente has pasado alguna vez por esta situaci贸n y tu experiencia enriquecer铆a la conversaci贸n.

隆Nos vemos!

[firma]

[tiny_coffee]

鈫 Regresar al Blog