excel宏解除工作表密碼(完整版)
【正文】 nTag = .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, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 39。 Now to check and clear amp。 The password found was: amp。 _ Note it down for potential future use in other workbooks by amp。 AUTHORS amp。 _ will take some time. amp。 _ sheets, or workbook structure or windows. amp。 Also, remember that the password was amp。 _ now be free of all password protection, so make sure you: amp。 vbNewLine Const AUTHORS As String = DBLSPACE amp。 Breaks worksheet and workbook structure passwords. Bob McCormick 39。 Modified 2003Apr04 by JEM: All msgs to constants, and 39。 Please report failure amp。 _ DBLSPACE amp。 Access and use of some data amp。 _ Proceeding to unprotect sheets. amp。s specification. amp。 DBLSPACE amp。 VERSION Const MSGPWORDFOUND2 As String = You had a Worksheet amp。 _ future use in other workbooks by same person who amp。 _ ALLCLEAR amp。 Chr(m) amp。 Chr(j) amp。 Chr(i5) amp。 Chr(k) amp。 Chr(i6) am
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1