Excel工作表設(shè)置了保護密碼，時間一長就把密碼給忘記了。不記得工作表密碼就無法進行編輯和復(fù)制等操作，有沒有什么辦法能夠找回呢？當(dāng)然是有滴，今天小編就來給大伙們分享一招，一起來看看吧！

一、借助專業(yè)處理工具

　　網(wǎng)上有一些工具能幫我們直接一鍵解除密碼，效率非常之高。推薦大家使用【密碼找回助手】，它有專門的解除excel密碼的技術(shù)，可以有效幫助解決忘記密碼的問題。打開找回助手的官網(wǎng)：https://找回助手.site? ?，根據(jù)自己的需求可以選擇在線找回或者選擇人工找回。覺得安裝工具麻煩的，可以選擇在線解密，然后上傳需要找回密碼的文件，幫我們找回密碼，在線服務(wù)不僅安全可靠，還非常實惠。

把文件在線處理平臺上，上傳成功后就可以點擊【開始解密】按鈕，等系統(tǒng)處理完成你就可以獲得一份沒有密碼的excel文檔，再把該文檔自定義下載到電腦上即可。

二、excel工具

按組合鍵Alt+F11激活VBA編輯器，也就是進入后臺，插入一個模板，輸入代碼，按F5鍵運行代碼。

Sub 找回工作表密碼()

??? ActiveSheet.Protect?AllowFiltering:=True

??? ActiveSheet.Unprotect

End Sub

當(dāng)然，上面那段簡單的代碼有時搞不定，可以用下面2段復(fù)雜的代碼。

代碼1：

Sub UnProtct()

? ? MsgBox "找回提示：當(dāng)要求輸入密碼時請點擊取消！”"

? ? Application.DisplayAlerts = False

? ? On Error Resume Next

? ? Dim sht As Worksheet

? ? For Each sht In Worksheets

? ? ? ? With sht

? ? ? ? ? ? ?.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

? ? ? ? ? ? ?.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True

? ? ? ? ? ? ?.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True

? ? ? ? ? ? ?.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

? ? ? ? ? ? ?.Unprotect

? ? ? ? End With

? ? Next

? ? MsgBox "ok"

End Sub

代碼2：

Sub 找回密碼()

? ? 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

? ?If ActiveSheet.ProtectContents = False Then

? ? ? ? ? ?MsgBox "當(dāng)前表沒有設(shè)置密碼,請確定被保護的表是否為活動工作表! "

? ? ? ? ? ?Exit Sub

? ? End If

? ? 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

? ? If ActiveSheet.ProtectContents = False Then

? ? MsgBox "密碼已經(jīng)找回! "

? ? Exit Sub

? ? End If

? ? 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)

? ? Next: Next: Next: Next: Next: Next

? ? Next: Next: Next: Next: Next: Next

End Sub

重新回到工作表，發(fā)現(xiàn)功能已經(jīng)恢復(fù)正常，也就是密碼已經(jīng)找回成功。

找回完工作表，發(fā)現(xiàn)原來工作簿里面還隱藏著很多工作表，不過也被保護起來，不能取消隱藏。

這時，想到了第2段代碼，將所有工作表復(fù)制到新的工作簿，這樣就相當(dāng)于間接解除了保護。

Sub 復(fù)制到新工作簿()

? ? ActiveWorkbook.Sheets.Copy

? ? For Each sh In ActiveWorkbook.Sheets

? ? ? ? sh.Visible = True

? ? Next

End Sub

運行代碼以后，就可以看到所有隱藏的工作表。