워크시트 보호를 취소하기 위해 비밀번호를 잊어버린 경우 어떻게 해야 합니까?

데이터 분석을 하는 사람은 원본 데이터의 정확성이 매우 중요하다는 것을 알고 있습니다. 종종 데이터 오류로 인해 결과에 큰 편차가 발생합니다.

따라서 워크시트에 원본 데이터를 입력하고 교정한 후 타인의 오작동이나 무작위 복사를 방지하기 위해 데이터를 보호하도록 선택하겠습니다.

그러나 현대 생활의 속도가 빨라지고 비밀번호가 사용되는 곳이 많아지면서 비밀번호를 잊어버리는 일이 자주 발생합니다. 비밀번호를 잊어버려서 열심히 작업한 워크시트를 더 이상 수정할 수 없게 되었을 때 우울하지 않으신가요?

이제 무엇을 해야 할까요? 다시 하시겠습니까? 실제로, 그렇게 번거로울 필요는 없습니다. 아래에서는 워크시트 보호 비밀번호를 지우는 데 일반적으로 사용되는 두 가지 방법을 알려드리겠습니다.

VBA를 사용하여 삭제

1. 메뉴 표시줄에서 "개발 도구"를 클릭하고 매크로 기록을 선택한 다음 "워크시트 보호 비밀번호 지우기"라는 매크로 파일을 기록합니다. (매크로 파일 이름은 사용자의 습관에 따라 지정할 수 있습니다.) ) .

2 다시 메뉴 표시줄에서 "개발 도구"를 클릭하고 "매크로"를 선택하여 매크로 대화 상자를 열고 "매크로 이름"에서 새로 생성된 매크로 파일을 선택한 다음 "편집"을 클릭하여 엽니다. 매크로(VBA) 편집 창입니다.

3. 매크로(VBA) 편집창 좌측의 "VBAProject PERSONAL,XLSB" → "Module" → "Module 2"를 선택하고, 우측의 코드창에서 원본 내용을 삭제합니다. 코드창에 다음 코드를 붙여넣고 저장합니다.

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

자세히 보기 엑셀 관련 기술자료는 튜토리얼 칼럼에서 엑셀 배우기를 방문해 보세요!

위 내용은 워크시트 보호를 취소하기 위해 비밀번호를 잊어버린 경우 어떻게 해야 합니까?의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!