excel宏解除工作表密碼(存儲版)
【正文】 o 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 .Unprotect Chr(i) amp。 _ Chr(i4) amp。 Chr(i1) amp。Bypass all for...nexts End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR amp。 Chr(n) MsgBox (MSGPWORDFOUND2, _ $$, PWord1), vbInformation, HEADER 39。 Chr(l) amp。 Chr(i2) amp。Attempt clearance with PWord1 PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 39。 Chr(i1) amp。 Chr(i4) amp。dummy do loop 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 With ActiveWorkbook .Unprotect Chr(i) amp。 _ other passwords. amp。 _ DBLSPACE amp。 _ the same person who set this password. amp。 VERSION Const MSGPWORDFOUND1 As String = You had a Worksheet amp。 DBLSPACE amp。 AUTHORS amp。 _ put there for a reason. Don39。 _ DBLSPACE amp。 vbNewLine amp。 probably originator of base code algorithm modified
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1