Excel에서 분실된 워크시트 보호 비밀번호를 복구하는 방법은 무엇입니까?

우리는 중요한 워크시트가 다른 사람에 의해 파괴되거나 수정되는 것을 방지하기 위해 항상 비밀번호를 설정합니다. 하지만 비밀번호를 잊어버렸다면 어떻게 해야 할까요? 다행히도 Excel은 분실된 워크시트 보호 비밀번호를 복구하기 위한 일부 VBA 코드를 지원합니다. 이 문제는 다음과 같이 해결할 수 있습니다:

VBA 코드를 사용하여 Excel에서 분실된 워크시트 보호 비밀번호 복구

VBA 코드를 사용하여 Excel에서 분실된 워크시트 보호 비밀번호 복구

다음 VBA 코드는 워크시트의 원래 비밀번호를 빠르게 취소하는 데 도움이 될 수 있습니다.

1. 이전에 보호된 워크시트를 엽니다.

2. ALT + F11 키를 누르고 있으면 Microsoft Visual Basic for Applications 창이 열립니다.

3. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

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 키를 눌러 이 코드를 실행하면 프롬프트 상자가 나타납니다. 확인을 클릭하여 닫고, 보호된 워크시트의 비밀번호가 즉시 취소됩니다.

참고:

1. 이 코드를 사용하면 한 번에 하나의 워크시트 보호 비밀번호만 복구할 수 있으며, 여러 개의 보호된 워크시트가 있는 경우 이 코드를 하나씩 적용해야 합니다.
2. 위의 코드는 다음 사이트에서 가져온 것입니다: http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.

관련 기사

Excel에서 여러 워크시트를 한 번에 보호하는 방법은 무엇입니까?

Excel에서 여러 워크시트를 한 번에 보호 해제하는 방법은 무엇입니까?