Home > Foro de Excel >

Debates de Excel

> Truco para quitar contraseña a Hojas de Excel
Foro de Excel
Foro de Excel
4 Cursos online | 22547 Debates | 4685 Documentos | 21 Vídeos | 2 Test | 2 Blogs | 723 Imágenes | 39622 Miembros

Truco para quitar contraseña a Hojas de Excel

Escrito por Esteban el 03/07/2008

Vamos a ver como podemos desbloquear una hoja de Excel usando un pequeño código que podemos insertar en el editor de Visual Basic:

Selecciona la hoja que está protegida con contraseña y luego abre el editor   VBA y en el menú Insertar aplicarás Módulo. Copia y pega cuidadosamente la siguiente información:

 

Sub Quitar_contraseña()

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

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

If ActiveSheet. ProtectContents = False Then

MsgBox " ¡Enorabuena! " & 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

End Sub

 

Muy bien ahora, guardarás en el menú Archivo el módulo que acabas de crear y cerrarás el editor VBA (Visual Basic).

Dirígete ahora a la hoja protegida, presiona ALT + F8, inmediatamente te aparecerá la ventana de Macro; elije el que diga “Quitar_Contraseña” y presiona “EJECUTAR”.

Dependiendo de la velocidad de tu ordenador, no te desesperes;   la macro quitará la contraseña que protegía la hoja Excel. ¡Espero les sea de utilidad!

compartir


Escrito por Esteban el 04/07/2008

El macro anterior presentó un error al pegarlo en el tema del foro, favor de considerar el siguiente:

Si no sabes la contraseña de una hoja Excel, Abre dicha hoja y luego el editor de Visual Basic pega la siguiente macro en un módulo y guárdalo:

Sub Quitar_contraseña()

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

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

If ActiveSheet. ProtectContents = False Then

MsgBox " ¡Enorabuena! " & 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

End Sub

Luego Cierra la Ventana del Editor Visual Basic. Dirígete a la hoja de bloqueada con contraseña, presionarás ALT + F8; y una ventana denominada Macros se abrirá, selecciona el que diga Quitar_Contraseña y presiona EJECUTAR.

Dependiendo de la velocidad de tu ordenador, la macro quitará la contraseña que protegía la hoja Excel. ¡Espero les sea de utilidad!


Mauricio Roa G.
Bogotá, Colombia
Escrito por Mauricio Roa G. el 17/07/2008
"

Vamos a ver como podemos desbloquear una hoja de Excel usando un pequeño código que podemos insertar en el editor de Visual Basic:  

Selecciona la hoja que está protegida con contraseña y luego abre el editor   VBA y en el menú Insertar aplicarás Módulo. Copia y pega cuidadosamente la siguiente información:  

 

Sub Quitar_contraseña()  

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  

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  

If ActiveSheet. ProtectContents = False Then  

MsgBox " ¡Enorabuena! " & 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  

End Sub  

 

Muy bien ahora, guardarás en el menú Archivo el módulo que acabas de crear y cerrarás el editor VBA (Visual Basic). 

Dirígete ahora a la hoja protegida, presiona ALT + F8, inmediatamente te aparecerá la ventana de Macro; elije el que diga “Quitar_Contraseña” y presiona “EJECUTAR”. 

Dependiendo de la velocidad de tu ordenador, no te desesperes;   la macro quitará la contraseña que protegía la hoja Excel. ¡Espero les sea de utilidad! 

"

por Esteban (Julio 2008)


Esteban, le quedo altamente agrdecido

Fue muy util su ayuda y colaboracion

Muchs Gracias!


Mauricio Roa



Jorge Exposito
Montevideo, Uruguay
Escrito por Jorge Exposito el 02/08/2008
"

Vamos a ver como podemos desbloquear una hoja de Excel usando un pequeño código que podemos insertar en el editor de Visual Basic:  

Selecciona la hoja que está protegida con contraseña y luego abre el editor   VBA y en el menú Insertar aplicarás Módulo. Copia y pega cuidadosamente la siguiente información:  

 

Sub Quitar_contraseña()  

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  

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  

If ActiveSheet. ProtectContents = False Then  

MsgBox " ¡Enorabuena! " & 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  

End Sub  

 

Muy bien ahora, guardarás en el menú Archivo el módulo que acabas de crear y cerrarás el editor VBA (Visual Basic). 

Dirígete ahora a la hoja protegida, presiona ALT + F8, inmediatamente te aparecerá la ventana de Macro; elije el que diga “Quitar_Contraseña” y presiona “EJECUTAR”. 

Dependiendo de la velocidad de tu ordenador, no te desesperes;   la macro quitará la contraseña que protegía la hoja Excel. ¡Espero les sea de utilidad! 

"

por Esteban (Julio 2008)




MUCHAS GRACIAS.

INTENTE PERO PARECE QUE ESTO SIRVE PARA DESPROTEGER UNA PLANILLA Y HABILITAR AL USUARIO A MODIFICAR EL CONTENIDO DE LAS CELDAS , PERO NO PARA ABRIR UN ARCHIVO EXCELL QUE TENGA PASSWORD.

IGUAL GRACIAS POR EL TIEMPO


Tito Ramirez
San Salvador, El Sal...
Escrito por Tito Ramirez el 05/09/2008
fiajete que sigo paso a paso las instrucciones. Pero en el paso final cuando le doy "ejecutar" a la macro" me sale un mensaje de error que dice "error de compilación- "error de sintaxis" y me sale sombreado la siguiente línea " "& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)" (supongo que ahí es donde está el error".
¿Cómo podría solucionar ese problema?
"

Vamos a ver como podemos desbloquear una hoja de Excel usando un pequeño código que podemos insertar en el editor de Visual Basic: 

Selecciona la hoja que está protegida con contraseña y luego abre el editor   VBA y en el menú Insertar aplicarás Módulo. Copia y pega cuidadosamente la siguiente información: 

 

Sub Quitar_contraseña() 

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 

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 

If ActiveSheet. ProtectContents = False Then 

MsgBox " ¡Enorabuena! " & 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 

End Sub 

 

Muy bien ahora, guardarás en el menú Archivo el módulo que acabas de crear y cerrarás el editor VBA (Visual Basic). 

Dirígete ahora a la hoja protegida, presiona ALT + F8, inmediatamente te aparecerá la ventana de Macro; elije el que diga “Quitar_Contraseña” y presiona “EJECUTAR”. 

Dependiendo de la velocidad de tu ordenador, no te desesperes;   la macro quitará la contraseña que protegía la hoja Excel. ¡Espero les sea de utilidad! 

"

por Esteban (Julio 2008)




Escrito por Esteban el 05/09/2008
Pero la segunda debe resultarte! Por favor lee el segundo mensaje donde aplica la corrección por favor.


Escrito por Camilo Antonio Parra Ramirez el 11/03/2009

No he podido hacer siguiento las instrucciones de desproteger el libro.
por favor ayudame con este archivo adjunto.
gracias por su atencion.
att camilo



Ficheros adjuntos:
CIA6

Escrito por Esteban el 11/03/2009

Hola Camilo! Es un gusto saludarte!
Ya tengo el archivo tal y como lo deseas, solicito porfavor si fueras tan amable de redactar tu correo para enviartelo por ese medio.
¡Gracias por tu atención a la presente!


Escrito por Camilo Antonio Parra Ramirez el 11/03/2009
esteban: buenas tardes, agradezco por leer mi mensaje, mi correo es camydj2004@yahoo. Com o camilo_parra30@hotmail. Com.

agradezco muchisimo su atencion prestada y su colaboracion.

att
camilo parra



Escrito por Carl el 01/07/2009
Esta MAcro funciona a la perfecto es la mejor forma que he visto en la cual quita contraseñas rapido y sin complicaciones.

"

El macro anterior presentó un error al pegarlo en el tema del foro, favor de considerar el siguiente:

Si no sabes la contraseña de una hoja Excel, Abre dicha hoja y luego el editor de Visual Basic pega la siguiente macro en un módulo y guárdalo:

Sub Quitar_contraseña()

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

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

If ActiveSheet. ProtectContents = False Then

MsgBox " ¡Enorabuena! " & 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

End Sub

Luego Cierra la Ventana del Editor Visual Basic. Dirígete a la hoja de bloqueada con contraseña, presionarás ALT + F8; y una ventana denominada Macros se abrirá, selecciona el que diga Quitar_Contraseña y presiona EJECUTAR.

Dependiendo de la velocidad de tu ordenador, la macro quitará la contraseña que protegía la hoja Excel. ¡Espero les sea de utilidad!

"

por Esteban (Julio 2008)




francisco
Escrito por francisco el 08/02/2010

Hola, tengo un fichero excel con datos confidenciales, protegido con una clave que impide abrir el fichero, y no deja realizar ninguna acción en se fichero excel.
Quisiera saber si esa clave sirve para algo si un experto en excel puede averiguar una clave que abra dicho fichero.
Yo no he podido aplicar el modulo del ejemplo por que el fichero protegido no me lo permite.

Yo soy practicamente nuevo en e_magister
¿Como puedo saber si alguien me responde a mi pregunta?
Saludos cordiales
Francisco


Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez el 09/02/2010

Francisco: te has incorporado al debate equivocado.
Tu problema no es quitar la clave de una hoja, sino del libro.

Intenta iniciar un debate nuevo con tu problemática específica.

Saludos, Cacho.


 
Páginas internacionales: España  |  Italia  |  Francia  |  México  |  Alemania  |  Reino Unido  |  Argentina  |  Chile  |  Colombia  |  USA |  India |  Y próximamente: Brasil | 

Búsquedas frecuentes: hdmi a usb foro sexologia cicatricure piccasa no se reconoce el dispositivo usb

EMAGISTER Servicios de formación, S.L. Copyright 1999/2013.