excel宏解除工作表密碼-在線瀏覽
2024-09-15 00:40本頁(yè)面
【正文】 Const MSGNOPWORDS2 As String = There was no protection to amp。 DBLSPACE amp。 AUTHORS amp。 _ will take some time. amp。 Amount of time amp。 _ passwords, and your puter39。 DBLSPACE amp。 AUTHORS amp。 _ Structure or Windows Password set. amp。 _ The password found was: amp。 $$ amp。 _ Note it down for potential future use in other workbooks by amp。 DBLSPACE amp。 AUTHORS amp。 _ password set. amp。 The password found was: amp。 $$ amp。 Note it down for potential amp。 _ set this password. amp。 Now to check and clear amp。 AUTHORS amp。 _ protected with the password that was just found. amp。 AUTHORS 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, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then M
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1