Proteccion hoja de calculo

Hola Henry,

Si solamente se trata de la proteccion de hojas puedes probar el siguiente
macro. Si el fichero esta protegido para la apertura este macro no vale.

Saludos,
KL

Sub PasswordBreaker()
'Author unknown
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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


"HENRY VILLADA" wrote in message
news:OBclUUK%

Hola a Todos.

Tengo un gran problema, resulta que alguien me le coloco proteccion a las
hojas de excel y no tengo idea que clave, como desbloqueo la hoja?

Gracias por su ayuda


Atentamente,


HENRY VILLADA

Gracias

Excelente


Atentamente,


HENRY VILLADA
"KL" escribió en el mensaje
news:OKDdonK%

Hola Henry,

Si solamente se trata de la proteccion de hojas puedes probar el siguiente
macro. Si el fichero esta protegido para la apertura este macro no vale.

Saludos,
KL

Sub PasswordBreaker()
'Author unknown
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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


"HENRY VILLADA" wrote in message
news:OBclUUK%

Hola a Todos.

Tengo un gran problema, resulta que alguien me le coloco proteccion a las
hojas de excel y no tengo idea que clave, como desbloqueo la hoja?

Gracias por su ayuda


Atentamente,


HENRY VILLADA

Hola KL. Este Macro permite entrar en las Celdas Bloqueadas en las Hojas?

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

Luis,

"Luis Caro" wrote in message...

Este Macro permite entrar en las Celdas Bloqueadas en las Hojas?

Este macro quita la proteccion de la hoja y por lo consiguiente permite
entrar en las celdas protegidas.

Saludos,
KL

Hola KL.Lo perdí.Me lo puedes enviar por favor.
Quita 3 y
Gracias.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002