Youtor
Cómo desbloquear hojas protegidas de Excel sin tener la contraseña
>> YOUR LINK HERE: ___ http://youtube.com/watch?v=p9kVk0XKCbM
El método que les traigo aquí funciona para desproteger hojas de cualquier archivo de Excel que tenga formato interno en XML, es decir, desde el Excel 2010 para adelante. Este método sirve incluso si no se puede abrir el libro por completo. No funciona si el archivo está corrompido. • Condición previa • Winzip, WinRAR o 7-zip o cualquier otro software que pueda descomprimir los archivos zip. • Hay por ahí en la red el código que copio abajo para desproteger hojas de libros de Excel, pero no funciona en las versiones actuales. • Sub PasswordBreaker() • ' Desproteje hoja. Funciona en Excel 2003 o inferior • 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) • ActiveWorkbook.Sheets(1).Select • Range( a1 ).FormulaR1C1 = 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 • Iconos diseñados por http://www.freepik.com from www.flaticon.com
#############################
