Foros


Inicio » Excel

Página: 1

Mensaje Autor

Arriba
24/Ene/07 16:25
Macro para desproteger hojas de Excel

Cuando estoy en el editor de Visual Basic tratando de desproteger un archivo, le doy clic con el botón secundario al libro que quiero desproteger pero no me habilita ninguna opción de las que se despliegan al seleccionar "Insertar".

¿Alguien sabe si hay alguna forma de desproteger el archivo?

Gracias de antemano por la ayuda brindada.
 
Lo importante no es saber, sino tener el teléfono del que sabe.
 
Perfil

Cheque
General de Brigada

Mensajes: 6746
Ingresó: Mayo 18, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
25/Ene/07 9:30

Tengo el mismo problema, a ver si alguien nos puede ayudar
 
LA PREPOTENCIA TE HACE FUERTE UN DIA.......LA HUMILDAD PARA SIEMPRE.
 
Perfil

vabdo
General de Brigada

Mensajes: 7573
Ingresó: Agosto 22, 2005
Ubicación:

No Conectado

Agregar como amigo

Arriba
12/May/24 18:46
Re: Macro para desproteger hojas de Excel

No hubo respuesta :(
 
Lo importante no es saber, sino tener el teléfono del que sabe.
 
Perfil

Cheque
General de Brigada

Mensajes: 6746
Ingresó: Mayo 18, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
12/May/24 22:52
Re: Macro para desproteger hojas de Excel

En 17 años ?
 
'Quienes se creen extremadamente inteligentes son tontos con complejos reprimidos'. Claudia Cardinale
 
Perfil

CP_PACO
General Brigadier

Mensajes: 14829
Ingresó: Marzo 10, 2005
Ubicación:

Conectado

Agregar como amigo

Arriba
30/May/24 17:55
Re: Macro para desproteger hojas de Excel

Buenas tardes, existía este código de VBA para Excel en esos ayeres, a ver si todavía funciona
Code:
Private Sub breakit()
'QUITA CONTRASEÑA DE HOJA
Application.Calculation = xlCalculationManual
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
Application.Calculation = xlCalculationAutomatic
End Sub


Saludos
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2139
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo


Página: 1