パスワードで保護された Excel ファイルのロックを解除する方法 – 2 つの簡単な方法

• すべてのフォルダーとファイルを選択します。
• 右クリック [送信先] を選択します。 .
• 圧縮 (zip) フォルダーを選択します。 .

• 必要に応じてファイルに名前を付けます。

• 圧縮されたことがわかります。 ファイル。

• ファイルの拡張子を xlsm に変更します。 .
• Enter を押します .

• 警告ボックスが表示されます。 [はい] を選択します。 .

• 目的の Excel ファイルが得られます。
• そのファイルを開いて、ファイルが復号化されているかどうかを確認します。

• パスワードなしで Excel ファイルを復号化したことがわかります。

方法 2 – マクロを使用してパスワードなしで Excel ファイルを復号化する

同じシートを使用してメソッドを示します。

手順:

• 開発者に移動します。 タブ。
• ビジュアルベーシックを選択します。 .

• ビジュアルベーシック エディタウィンドウが開きます。 [挿入] を選択します。 タブ。
• モジュールを選択します .

• モジュール 開きます。次のコードをモジュールに貼り付けます。 .

Sub Decrypt_File()
Dim p As Integer, q As Integer, r As Integer
Dim a As Integer, b As Integer, c As Integer
Dim p1 As Integer, p2 As Integer, p3 As Integer
Dim p4 As Integer, p5 As Integer, p6 As Integer
On Error Resume Next
For p = 65 To 66: For q = 65 To 66: For r = 65 To 66
For a = 65 To 66: For b = 65 To 66: For p1 = 65 To 66
For p2 = 65 To 66: For p3 = 65 To 66: For p4 = 65 To 66
For p5 = 65 To 66: For p6 = 65 To 66: For c = 32 To 126
ActiveSheet.Unprotect Chr(p) & Chr(q) & Chr(r) & Chr(a) & Chr(b) _
& Chr(p1) & Chr(p2) & Chr(p3) & Chr(p4) & Chr(p5) & Chr(p6) & Chr(c)
If ActiveSheet.ProtectContents = False Then
MsgBox "Done!"
Exit Sub
End If
Next: Next: Next: Next: Next: Next:
Next: Next: Next: Next: Next: Next:
End Sub

コードはどのように機能しますか?

• 私たちは 12 を使用しました For Next ループ 文字を確認します。
• ActiveSheet.Unprotect を使用しました。 アクティブシートから保護を削除するメソッド
• Chr 関数 ASCII に相当する文字を取得します。 コード。
• ActiveSheet.ProtectContents プロパティは、ワークシートがまだ保護されているかどうかを確認します。それが虚偽の場合 メッセージ ボックスが表示され、「完了!」 と表示されます。 .

• 保存 コードを入力してワークシートに戻ります。

• 開発者に移動します。 もう一度タブをクリックします。
• マクロを選択します .

• マクロ ダイアログボックスが表示されます。 復号化ファイル を選択します。 マクロ名として .
• [実行] を選択します。 .

• メッセージボックスが表示されます。 [OK] を選択します。 .

• Excel シートの保護が解除されます。それを確認するために、シートを編集してみます。
• 塗りつぶしの色を追加する範囲を選択します .
• ホームに移動します タブ。
• クリック 塗りつぶしの色 のドロップダウン オプション .

• 希望の色を選択します。

• 塗りつぶしの色が表示されます。 選択範囲に追加されます。これは、パスワードを使用せずにファイルを復号化したことを意味します。

続きを読む: Excel でセルの内容を暗号化する方法

パスワードを使用して Excel ファイルを復号化する方法

手順:

• ファイルを開くとダイアログ ボックスが表示されます。
• ダイアログ ボックスにパスワードを入力します。
• [OK] を押します。 .

• Excel ファイルが復号化されます。
• ファイルに移動します タブ。

• 情報を選択します .

• クリック [ワークブックの保護] のドロップダウン メニュー .
• [パスワードで暗号化] を選択します。 .

• ダイアログボックスが表示されます。ここからパスワードをクリアします。
• [OK] を選択します .

• Excel ファイルから保護を削除しました。

覚えておくべきこと

• 方法 2 の場合 複数のシートから保護を解除する場合は、各シートからコードを個別に実行する必要があり、コードが完了するまでに時間がかかる場合があります。

練習セクション

Excel ファイルをパスワードで復号化する方法を練習するための練習シートを用意しました。

練習用ワークブックをダウンロード

関連記事

• [解決済み!]:暗号化された Excel ファイルを開けません
• Excel から暗号化を削除する方法

<< Excel の暗号化に戻る |  エクセルプロテクト | Excel を学ぶ