excel宏解除工作表密碼-資料下載頁
2025-08-05 00:40本頁面
【正文】 = ShTag Or Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 39。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 .Unprotect Chr(i) amp。 Chr(j) amp。 Chr(k) amp。 _ Chr(l) amp。 Chr(m) amp。 Chr(i1) amp。 Chr(i2) amp。 Chr(i3) amp。 _ Chr(i4) amp。 Chr(i5) amp。 Chr(i6) amp。 Chr(n) If Not .ProtectContents Then PWord1 = Chr(i) amp。 Chr(j) amp。 Chr(k) amp。 Chr(l) amp。 _ Chr(m) amp。 Chr(i1) amp。 Chr(i2) amp。 Chr(i3) amp。 _ Chr(i4) amp。 Chr(i5) amp。 Chr(i6) amp。 Chr(n) MsgBox (MSGPWORDFOUND2, _ $$, PWord1), vbInformation, HEADER 39。leverage finding Pword by trying on other sheets For Each w2 In Worksheets PWord1 Next w2 Exit Do 39。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。 AUTHORS amp。 VERSION amp。 REPBACK, vbInformation, HEADER End Sub6\關(guān)閉編輯窗口 7\工具宏宏,選AllInternalPasswords,運行,確定兩次,等2分鐘,沒有密碼了!
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1