ワークシート保護を取り消すためのパスワードを忘れた場合はどうすればよいですか?

データ分析を行う人は、元のデータが正確であることが非常に重要であることを知っていますが、多くの場合、データ エラーにより結果に大きな偏差が発生します。

そのため、ワークシートに元データを入力・校正した後は、他人による誤操作や無作為コピーを防止するために、データが保護されます。

しかし、現代の生活のペースが加速し、パスワードがあまりにも多くの場所で使用されるようになると、パスワードを忘れることが頻繁に起こります。パスワードを忘れてしまったために、一生懸命取り組んだワークシートを修正できなくなると、落ち込んでしまいませんか?

このとき何をすべきでしょうか?再びそれを行う？以下に、ワークシート保護パスワードをクリアするためによく使用される 2 つの方法を紹介します。

VBA を使用してクリアします

1. メニュー バーの [開発ツール] をクリックし、[マクロの記録] を選択して、「ワークシート保護パスワードのクリア」ファイルという名前のマクロを記録します。 (マクロ ファイルには自分の習慣に従って名前を付けることができます)。

2. メニューバーの「開発ツール」を再度クリックし、「マクロ」を選択してマクロダイアログボックスを開き、「マクロ名」で新しく作成したマクロファイルを選択します。をクリックし、「編集」をクリックするとマクロ（VBA）編集画面が開きます。

3. マクロ(VBA)編集画面左側の「VBAProject PERSONAL,XLSB」→「モジュール」→「モジュール2」を選択し、Afterを変更します。コード ウィンドウの元のコンテンツを削除するには、次のコードをコピーしてコード ウィンドウに貼り付け、保存します。

4. メニューバーの「開発ツール」を再度クリックし、「マクロ」を選択してマクロダイアログボックスを開き、「マクロ名」で新しく作成したマクロファイルを選択します。をクリックし、[実行] または [シングル ステップ] をクリックすると、プログラムの完了後にワークシート保護パスワードがクリアされます。 (ヒント: プログラムの実行には遅延が生じます。コンピューターの構成が低い場合は、シングルステップ実行を選択してください。効果は同じです)

VBA コードは次のとおりです。

Public Sub 工作表保护密码破解()
Const HUANHANG As String = vbNewLine & vbNewLine
Const MINGCHEN As String = "清除工作表保护密码"
Const JINGGAO As String = "该工作簿中的工作表密码保护已全部清除!!" & HUANHANG & "请记得另保存" _
& HUANHANG & "注意：不要用在不当地方，要尊重他人的劳动成果！"
Const TISHI1 As String = "该文件工作表中没有加密"
Const TISHI2 As String = "该文件工作表中没有加密2"
Const KSPJ As String = "解密需花费一定时间,请耐心等候!" & HUANHANG & "按确定开始清除!"
Const FXMM1 As String = "密码重新组合为:" & HUANHANG & "$$" & HUANHANG & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const FXMM2 As String = "密码重新组合为:" & HUANHANG & "$$" & HUANHANG & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox TISHI1, vbInformation, MINGCHEN
Exit Sub
End If
MsgBox KSPJ, vbInformation, MINGCHEN
If Not WinTag Then
Else
On Error Resume Next
Do 'dummy do loop
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
With ActiveWorkbook
.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 .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(FXMM1, _
"$$", PWord1), vbInformation, MINGCHEN
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, MINGCHEN
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(FXMM2, _
"$$", PWord1), vbInformation, MINGCHEN
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox JINGGAO, vbInformation, MINGCHEN
End Sub

Excel 関連の技術記事の詳細については、Excel チュートリアル 列にアクセスして学習してください。

以上がワークシート保護を取り消すためのパスワードを忘れた場合はどうすればよいですか?の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。