hace 18 años
bueno, no eh podido pasarle el programa...pero voy a postear otro camino muy, pero muy efectivo, aqui los pasos a seguir....
1.Abre lo hoja de calculo que quieres desbloquear....
2.Presiona alt + F8 para que te da la pantallita de crear una macro y escribe un nombre cualquiera como por ejempl : marco1...... y presiona el boton Crear
esto te llevara al editor de VB y sutituye lo que aparece
[code:1]Sub marco1( )
End Sub[/code:1]
por lo siguiente :
[code:1]Sub breakit()
'variables locales
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 "El codigo disponible podria ser " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox "Excelente no ???"
MsgBox "dudas : paul.oncoy@gmail.com"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub[/code:1]
3.Guarda y luego ejecuta dicho 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 modificar los datos,formulas, etc.
Te en cuenta que ....
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, no es necesario que la anotes o la guardes por ahi.
[quote]Espero pongan esto en un apartado a aparte, para todos los q necesiten[/quote]
Exitos....
¿Realmente quieres cerrar esta reparación?
Sí
No
¿Realmente quieres reabrir esta reparación?
Sí
No
¿Realmente quieres borrar este post?
Sí
No