如圖該改表格設定了保護密碼：

要破解這個密碼，如何實現？

具體步驟如下：

步驟簡介：ALT+F11調出VBA——插入一個模組——複製貼上程式碼——ALT+F8執行程式碼。

程式碼如下：

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

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

你學會了嗎？點個讚唄！關注我，轉發下更多人學會！