암호가 무엇인지 알고 있다면 계속해서 Excel 문서를여십시오. 그런 다음 파일> 다른 이름으로 저장을 클릭하십시오. 저장 버튼의 왼쪽에는 도구라고 표시된 작은 드롭 다운 메뉴가 있습니다. 해당 항목을 클릭 한 다음 일반 옵션을 클릭하십시오. 암호 항목을 삭제하고 확인을 클릭하십시오. 문서를 저장하십시오.
암호가 무엇인지 모르면 VBA를 사용하여 찾을 수 있습니다. 추측해야 할 경우 사용자가 매우 강력한 암호를 사용하지 않았기 때문에 무차별 강제 유형 방법을 사용하여 찾을 수 있습니다. 아래 코드는 거칠지 만 일부 사용자 문서에서 약하고 분실 된 암호를 찾는 데 도움이되었습니다. 1에서 z까지의 ASCII 문자로 모든 길이의 비밀번호를 확인합니다. 직접 실행 창에서 호출하고 몇 분 정도 기다리십시오.
? GetPassword("D:\mywkbk.xlsx")
-
Public Function GetPassword(ByRef sFileName As String) As String
On Error Resume Next
Dim pw As String
pw = ""
Do
VBA.Err.Clear
pw = GenerateNextPassword(pw)
Application.Workbooks.Open sFileName, False, True, , pw, pw
VBA.DoEvents
Loop While VBA.Err.Number = 5408
GetPassword = pw
End Function
Public Function GenerateNextPassword(ByRef sCurrentPassword As String) As String
Const MAX_CHAR = 122
Const MIN_CHAR = 49
Dim sCurrentPasswordMax As String
Dim sNewPassword As String
Dim i As Long
sCurrentPasswordMax = String(Len(sCurrentPassword), Chr(MAX_CHAR))
If sCurrentPassword = sCurrentPasswordMax Then
'do an increment that changes the length
sNewPassword = String(Len(sCurrentPassword) + 1, Chr(MIN_CHAR))
Debug.Print Now(); ": "; sNewPassword
ElseIf Asc(Right(sCurrentPassword, 1)) = MAX_CHAR Then
'do an increment that changes multiple characters
sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(MIN_CHAR)
For i = Len(sCurrentPassword) - 1 To 1 Step -1
sNewPassword = Left(sNewPassword, i - 1) & Chr(Asc(Mid(sNewPassword, i, 1)) + 1) & Mid(sNewPassword, i + 1)
If Asc(Mid(sCurrentPassword, i, 1)) <> MAX_CHAR Then
Exit For
End If
Next i
Else
'do an increment on the rightmost character
sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(Asc(Right(sCurrentPassword, 1)) + 1)
End If
GenerateNextPassword = sNewPassword
End Function
decrypt xls이나 비슷한 것입니다.