Proteger Hoja

juancace · #1 (**permalink**) 15/05/2006, 05:51

Hay alguna manera de quitarle la proteccion a las celdas sin necesidad de saber la contraseña de proteccion de una hoja?. O sino... Hay alguna manera de averguar la contraseña de proteccion??

JavierB · #2 (**permalink**) 15/05/2006, 05:56

Hola juancace

Hay una forma facilísima: preguntarsela al que la ha puesto. Si no le importa que veas el contenido de la hoja, te dará la contraseña sin problemas.

Saludos,

juancace · #3 (**permalink**) 15/05/2006, 06:30

Gracias por tu contestacion, pero... yo no se quien es el que la hizo. solo me la pasaron....

potypoty · #4 (**permalink**) 15/05/2006, 07:03

Mira por los distintos temas que existe uno que ya ha tratado este tema y tiene respuesta, pero utilizalo bien, ehhhh!

juancace · #5 (**permalink**) 15/05/2006, 14:45

Gracias Poty Poty, me fijo si lo encuentro, y no te preocupes que no lo necesito para nada "extraño", es solo por trabajo

Ephs · #6 (**permalink**) 15/05/2006, 14:53

Cita:

Iniciado por Linterns

Espero que no lo utilices inadecuadamente.

Presiona ALT + F8 para que te da la pantallita de crear una macro y escribe un nombre determinado y presiona la tecla CREAR

esto te llevara al editor de VB y sutituye lo tecleado por lo 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

Guarda y luego ejecuta dicha macro.... espera unos cuantos minutos y te mostrara una advertencia con la clave Interna de Excel y te desbloqueara la hoja de la cual deseas ver las formulas.

NOTA: la clave que te muestra no es la que tecleo el usuario sino la de respaldo que ocupa internamente elñ codigo de Excel en dicha hoja.

Este es el Post, usalo para el bien.

juancace · #7 (**permalink**) 15/05/2006, 15:05

Muchisimas Gracias ! Voy a probarlo y te confirmo si me solucionó el problema...