excel鎖定后忘記密碼的解決辦法 首先打開設(shè)置了工作表保護(hù)的表格,可以看到,當(dāng)我們試圖編輯時,會彈出這樣的對話框。 這時如果我們忘記了密碼,可以使用宏命令來將密碼顯示出來,然后輸入正確的密碼即可。具體操作時,要先將宏命令的相關(guān)工具按鈕調(diào)出來。單擊文件——選項——自定義功能區(qū)——在“開發(fā)工具”前打勾——確定。 單擊工具欄——開發(fā)工具——宏,新建宏。然后保存。 編輯該宏,復(fù)制下列代碼粘貼到宏的內(nèi)容中去。 Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox One usable password is & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveWorkbook.Sheets(1).Select Range(a1).FormulaR1C1 = Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub 保存之后,運行該宏,即可彈出顯示密碼的窗口。單擊確定,然后輸入密碼即可實現(xiàn)解鎖。 如果點擊宏時出現(xiàn)錯誤提示,則可能是因為你的excel沒有啟用宏。操作方法如下:單擊文件——選項——信任中心——信任中心設(shè)置——宏設(shè)置——點啟用所有宏。然后確定。
油菜花蜜蜂 追問
2020-01-09 12:46
安與逸老師 解答
2020-01-09 12:46
油菜花蜜蜂 追問
2020-01-09 12:49
安與逸老師 解答
2020-01-09 12:51