Queremos compartir contigo la mejor solución que hemos encontrado por todo internet. Nosotros esperamos que te sea de ayuda y si quieres comentarnos algún detalle que nos pueda ayudar a perfeccionar nuestra información hazlo libremente.
Ejemplo: hoja de desbloqueo de Excel vba sin contraseña
Sub PasswordBreaker()'Breaks worksheet password protection.Dim i AsInteger, j AsInteger, k AsIntegerDim l AsInteger, m AsInteger, n AsIntegerDim i1 AsInteger, i2 AsInteger, i3 AsIntegerDim i4 AsInteger, i5 AsInteger, i6 AsIntegerOnErrorResumeNextFor i =65To66:For j =65To66:For k =65To66For l =65To66:For m =65To66:For i1 =65To66For i2 =65To66:For i3 =65To66:For i4 =65To66For i5 =65To66:For i6 =65To66:For n =32To126
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 =FalseThen
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)ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub
Si guardas alguna cuestión o disposición de acrecentar nuestro post eres capaz de ejecutar un informe y con mucho placer lo observaremos.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)