パスワード忘れ excel シート の 保護 解除方法

この方法では、短いVBAコードをコピー＆ペーストするだけです。コードを書く知識はまったく不要です。このコードは、考えられる文字の組み合わせを高速で何百万通りも試し、そのシートでExcelが受け入れるパスワードを探し出します。本来のパスワードを復元するわけではありませんが、代わりに使えるパスワードを見つけてくれるのです。これでExcel シート の 保護 解除が可能になります。

手順は以下の通りです：

1. VBAエディタを開く：ロックされたExcelファイルを開いた状態で、キーボードの Alt + F11 を押します。
2. モジュールを挿入する：開いたウィンドウで、挿入 → 標準モジュール をクリックします。
3. コードを貼り付ける：表示された空白の領域に、以下のコードをコピー＆ペーストします：

vba

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 "使えるパスワードは " & 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

3. コードを実行する：F5 キーを押してコードを実行します。ポップアップウィンドウが表示され、使えるパスワードが表示されます。それをメモして OK をクリックし、VBAエディタを閉じます。

4. シートの保護を解除する：Excelの 校閲 タブに移動し、シートの保護解除 をクリックします。コードが表示したパスワードを入力します。これでシートのロックが解除され、Excel シート の 保護 解除が完了します！

この方法は古い .xls 形式と新しい .xlsx 形式の両方で動作しますが、非常に複雑で長いパスワードに対しては成功率がやや下がることがあります。