excel中多個(gè)工作表的密碼一次破解-閱讀頁
2024-09-10 14:55本頁面
【正文】 ation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 39。 Chr(j) amp。 _ Chr(l) amp。 Chr(i1) amp。 _ Chr(i3) amp。 Chr(i5) amp。 Chr(n) If .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) amp。 Chr(k) amp。 _ Chr(m) amp。 Chr(i2) amp。 _ Chr(i4) amp。 Chr(i6) amp。Bypass all for...nexts End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets 39。Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 39。 Chr(j) amp。 _ Chr(l) amp。 Chr(i1) amp。 Chr(i3) amp。 Chr(i5) amp。 Chr(n) If Not .ProtectContents Then PWord1 = Chr(i) amp。 Chr(k) amp。 _ Chr(m) amp。 Chr(i2) amp。 _ Chr(i4) amp。 Chr(i6) amp。leverage finding Pword by trying on other sheets For Each w2 In Worksheets PWord1 Next w2 Exit Do 39。 AUTHORS amp。 REPBACK, vbInformation, HEADER End Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1