En este grupo En todos

Foro de Excel



como desproteger una celda en excel

Escrito por Edison Vasquez Ayala
el 20/12/2006
 cuando una celda estaprotegia don contraseña  como   se  desprotege si   no lo tengo su contraseña
Sorenkierkegaard
Finlandia del Sur - ...
Escrito por Sorenkierkegaard
el 20/12/2006

Pues pidiéndole la clave al dueño del archivo

Haver G. Ramirez
Ingeniería en sistemas universidad mar...
Escrito por Haver G. Ramirez
el 20/12/2006

Pues si tu lo creaste y no te acuerdas.... (mucho cuidado eh)

Oprime alt+F11 y en la parte izquierda donde dice "Microsoft Excel Objetos" buscas el nombre de la hoja que quieres quitar el password le das doble click y colocas este codigo

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

Despues entras a la hoja en herramientas-macros-(un signo de play) macros y ejecutas este codigo....

Escrito por Krlos_182x
el 26/04/2007
No funciona se traba el excel
Escrito por Krlos_182x
el 26/04/2007
Grcias avia ke esperar para ke funcione disculpa mi comentario anterior lo siento si funciona a la perfección
Escrito por Rosas
el 23/05/2007
Oye, felicitaciones funciona excelentemente bien
Escrito por Yofdfdfdf
el 18/07/2007

Funciona bastante bien

Gracias.


Parker Lllllllll
Perú, Perú
Escrito por Parker Lllllllll
el 15/11/2007

Gracias Man, ahora si ya se algo masss, jejeje (  /. --)", si no es molestas, quisiera saber donde puedo encontrar una pagina, donde haya APRENDER MACROS DESDE 0, estudie macros, pero las mas faciles, jeje, pero hace 1 años, ya me olvide, jeje

 GRACIAS POR TODO

Escrito por Rafa
el 22/01/2008

Me ayudaste a desproteger una  hoja   en  el jale..     ala  perfeccion


Didi
Antioquia, Colombia
Escrito por Didi
el 07/02/2008

Hey gracias me ayudaste mucho 

En realidad si eres un experto en excel

Gustavo
Veracruz, México
Escrito por Gustavo
el 23/05/2008
Orale maestro eres la primera persona que conozco que me ayuda con esta bronca... Vale gracias caballero
Escrito por Dav9d
el 24/05/2008
Muy sencillo, en tu cuenta de google, entra en docs, o sea en documentos y sube el excel o lo que sea, despues publica el excel, en share da permiso a cualquier usuario como editor y publicala, copia el enlace que te dan, y cuando lo habras con el enlace, google, el solito ya se ha cargado las claves, por que google es muy bueno, o demasiado bueno. Y despues lo guardas en tu equipo una copia y ya tienes tu archivo sin protecion.
Jjcl
Distrito Federal, Ve...
Escrito por Jjcl
el 27/05/2008
"pues si tu lo creaste y no te acuerdas.... (mucho cuidado eh)
oprime alt+F11 y en la parte izquierda donde dice "Microsoft Excel Objetos" buscas el nombre de la hoja que quieres quitar el password le das doble click y colocas este codigo
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 despues entras a la hoja en herramientas-macros-(un signo de play) macros y ejecutas este codigo....

Agradecimientos recibidos:
Mexico (1) 
El salvador (1) 
"

por Haver Ramirez (Diciembre 2006)


Hola, la verdad esto es muy útil, efectivamente me funcionó, muchas gracias por la información, ahora solo necesito saber si para este procedimiento se deben tener privilegios administrativos en la sesión, ya que en otra sesión sin privilegios no se pudo, otorgó un mensaje de q las macros serán desabilitadas por razones de seguridad!

En mi sesión si funcionó a la perfección, pero en una sin privilegios otorgó este mensaje!

Saludos desde venezuela y gracias por esta información nos sirvió de gran utilidad!


Jjcl
Distrito Federal, Ve...
Escrito por Jjcl
el 27/05/2008
Hola, la verdad esto es muy útil, efectivamente me funcionó, muchas gracias por la información, ahora solo necesito saber si para este procedimiento se deben tener privilegios administrativos en la sesión, ya que en otra sesión sin privilegios no se pudo, otorgó un mensaje de q las macros serán desabilitadas por razones de seguridad!
en mi sesión si funcionó a la perfección, pero en una sin privilegios otorgó este mensaje!
saludos desde venezuela y gracias por esta información nos sirvió de gran utilidad!

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 27/05/2008
Pues no se trata de privilegios, simplemente anda a HERRAMIENTAS - MACROS - SEGURIDAD y coloca el nivel en "medio" (o "bajo" - no recomendado), cierra, abre, habilita las macros y listo

Abraham
Auro
Morelos, México
Escrito por Auro
el 30/07/2008
"pues si tu lo creaste y no te acuerdas.... (mucho cuidado eh)
oprime alt+F11 y en la parte izquierda donde dice "Microsoft Excel Objetos" buscas el nombre de la hoja que quieres quitar el password le das doble click y colocas este codigo
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 despues entras a la hoja en herramientas-macros-(un signo de play) macros y ejecutas este codigo....

Agradecimientos recibidos:
Mexico (1) 
El salvador (1) 
"

por Haver Ramirez (Diciembre 2006)


ERES  UNA LONGANIZA!   osea muy bueno! ;)

Escrito por Amistad
el 08/08/2008
Eres lo maximo, realmente me resultó y me ahorré un mes de trabajo
Escrito por Isis
el 17/01/2009

Hola, ¿Cómo puedo desproteger una columna? He protegido toda la hoja y quiero dejar libre una columna para que oras personas puedan rellenarla pero no puedan modificar nada más.M ¿Me podeis ayudar? Me estoy volviendo loca.
Muchas gracias!

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 17/01/2009

Para nuevas preguntas, debes abrir nuevos temas

Abraham