BonYurt

Para demografía el profe nos puso a hacer un trabajo de estadística sobre alguno de los pueblos de mi país. Bloqueó sus hojas como para que nosotros mismos hiciésemos los cálculos ¡Pero que va! Sabía como desbloquear sus hojas y aquí te muestro como hacerlo: Para desbloquear una hoja de cálculo de Excel 2013 sigue estas instrucciones: 1. Abre normalmente el archivo Excel que quieres desbloquear 2. Pulsa ALT + F11 y se te abrirá una ventana (en versiones anteriores para abrir la ventana pulsa ALT+F8) 3. En la barra de herramientas damos clic sobre la hoja que tenga la contraseña en este caso la hoja 4 4. Nos aparece esta venta sobre la que pegas el código del paso No. 5 5. 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 "La contraseña es: " & 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 FIN DE CODIGO 6. presionar F5 y esperar.... Puede congelarse un rato la ventana. Sean pacientes y se desbloquea al instante 7. Si todo salio bien nos saldrá: AAABBABABAAy (OJO: está es la contraseña de mi documento. A ustedes seguro les aparecerá otra clave) -----Fin del Post----- ВΘИ ϒЏЯТ