Note: The other languages of the website are Google-translated. Back to English

Excelで紛失したワークシート保護パスワードを回復する方法は?

重要なワークシートが他の人によって破壊されたり変更されたりしないように、常にパスワードを設定しています。 しかし、パスワードを忘れた場合、どうすればよいでしょうか。 幸い、Excelは、紛失したワークシート保護パスワードを回復するためのVBAコードをサポートしています。 この問題は次のように処理できます。

VBAコードを使用してExcelで失われたワークシート保護パスワードを回復する
ワークシートを保護するためのその他のチュートリアル...


VBAコードを使用してExcelで失われたワークシート保護パスワードを回復する

次のVBAコードは、ワークシートの元のパスワードをすばやくキャンセルするのに役立ちます。

1。 以前に保護されているワークシートを開きます。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード:失われたワークシート保護パスワードを回復する

Sub PasswordRecovery()
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4。 次に、をクリックします F5 キーを押してこのコードを実行すると、プロンプトボックスが表示されます。 OK を閉じると、保護されたワークシートのパスワードがすぐにキャンセルされます。

注意:

1.このコードでは、一度にXNUMXつのワークシート保護パスワードのみを回復します。保護されたワークシートが複数ある場合は、このコードをXNUMXつずつ適用する必要があります。
2.上記のコードは http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.


Excelのパスワードを使用して、複数のワークシートを同時に簡単に保護します。

世界 ワークシートを保護する の有用性 Kutools for Excel 同じパスワードで複数のワークシートをまとめて保護するのに役立ちます。 また、これらのワークシートの保護を同時に解除するユーティリティも提供します。 全機能をダウンロード 30-Kutools for ExcelのXNUMX日無料トレイルが今すぐ!


関連記事

Excelで一度に複数のワークシートを保護するにはどうすればよいですか?

Excelで一度に複数のワークシートの保護を解除するにはどうすればよいですか?


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (98)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
Excel2013でパスリカバリが機能しませんでした
このコメントは、サイトのモデレーターによって最小化されました
ありがとう!!! 2007年のオフィスで問題なく動作します
このコメントは、サイトのモデレーターによって最小化されました
見事!!!!!!!!! 正常に動作しています。
このコメントは、サイトのモデレーターによって最小化されました
簡単な修正。 「知識は力だ!」のもう一つの事例他の人に力を与えるためにあなたの知識を共有してくれてありがとう!
このコメントは、サイトのモデレーターによって最小化されました
完璧に動作しました。 知識は力です、他の人に力を与えるためにあなたの知識を共有してくれてありがとう!
このコメントは、サイトのモデレーターによって最小化されました
親愛なるチームあなたの言葉によると、私はそれを行い、問題を解決しましたが、別の問題は、11枚のシートがパスワードで保護されているExcelシートがあり、Alt + FXNUMXを押して[挿入オプション]を選択すると、Moudleオプションが無効になるのでどうすればよいですか?それを取得します。 私に提案してください。
このコメントは、サイトのモデレーターによって最小化されました
Excel2013で魅力のように機能しました!!! あなたは最高です、ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとうございます!! それは私のために働いた...
このコメントは、サイトのモデレーターによって最小化されました
ありがとうチャチャG(グーグル)
このコメントは、サイトのモデレーターによって最小化されました
私があなたの方法を試すまで、ほとんど早くあきらめる助けをありがとうございましたそれはすぐに再び働きます
このコメントは、サイトのモデレーターによって最小化されました
保護を解除したいファイルを開いたところ、パスワードの入力を求められました。 Alt + F11キーを押したままにすると、コンピューターの画面が暗くなりました。 私はその時点を超えたことはありません。
このコメントは、サイトのモデレーターによって最小化されました
Microsoft Excel 2007を使用していますが、保護されているファイルを開くと、忘れたパスワードを要求されました。 Alt + F11を同時に押し続けると、画面が暗くなり、そのポイントを超えることはありません。
このコメントは、サイトのモデレーターによって最小化されました
非常に有用でタイムリーな情報。 ありがとう。
このコメントは、サイトのモデレーターによって最小化されました
それは動作します.....どうもありがとうございました:-)
このコメントは、サイトのモデレーターによって最小化されました
私はあなたの親切な助けに十分に感謝することはできません。 幸運をお祈りしています。
このコメントは、サイトのモデレーターによって最小化されました
これのおよその実行時間はどれくらいですか? 私のマシンは30分間スタックしています。
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい。 あなたは天才です
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい! 助けてくれてありがとう!
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい!!! たくさん助けました:lol:
このコメントは、サイトのモデレーターによって最小化されました
サポートに感謝します。 IOTの世界は私たちの生活を本当に変えています。 ありがとうございました!
ここにはまだコメントが投稿されていません
もっと読む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護