excel中多个工作表的密码一次破解(编辑修改稿)

excel中多个工作表的密码一次破解(编辑修改稿)内容摘要：

DBLSPACE amp。 _ Note it down for potential future use in other workbooks by amp。 _ the same person who set this password. amp。 DBLSPACE amp。 _ Now to check and clear other passwords. amp。 AUTHORS amp。 VERSION Const MSGPWORDFOUND2 As String = You had a Worksheet amp。 _ password set. amp。 DBLSPACE amp。 The password found was: amp。 _ DBLSPACE amp。 $$ amp。 DBLSPACE amp。 Note it down for potential amp。 _ future use in other workbooks by same person who amp。 _ set this password. amp。 DBLSPACE amp。 Now to check and clear amp。 _ other passwords. amp。 AUTHORS amp。 VERSION Const MSGONLYONE As String = Only structure / windows amp。 _ protected with the password that was just found. amp。 _ ALLCLEAR amp。 AUTHORS amp。 VERSION amp。 REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation,。