☰

Senha do Microsoft Excel

tag-icon • tag-icon microsoft-excel passwords
Senha do Microsoft Excel

Tenho dois arquivos Excel que criei há cerca de um ano. Ambos os arquivos estão protegidos.

  • Um arquivo Excel não pode ser aberto/editado sem inserir a senha correta.
  • E em outro arquivo Excel, Proteger Planilha está habilitado em algumas células específicas.

Baixei algumas ferramentas para recuperação de ambos os tipos de senha, mas nenhuma delas funcionou com sucesso. Também eu tinha passadoRecuperação de senha do Excel. A ferramenta mencionada neste link não funcionou.

Por favor, deixe-me saber, como consertar isso?

Cumprimentos

InTech

Responder1

Para o arquivo que você PODE abrir, tente isto.

Se você não vir "desenvolvedor" na barra de ferramentas:

Clique na imagem do botão Microsoft Office Button Office e, em seguida, clique em Opções do Excel, Opções do PowerPoint ou Opções do Word.

Clique em Popular e marque a caixa de seleção Mostrar guia Desenvolvedor na faixa de opções.

Pressione Alt+F11 (ou clique em Visual Basic na guia do desenvolvedor) para abrir o editor VBA. Crie uma nova macro clicando na seta ao lado do botão com a régua: Criar Módulo

Copie o seguinte código e cole-o em seu novo módulo:

    Sub PasswordBreaker()
    'Author unknown
    'Breaks worksheet password protection.
    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

Ctrl+S para salvar e feche o editor VBA.

Na sua pasta de trabalho, vá para a guia do desenvolvedor e clique em Macros. Selecione PasswordBreaker e clique em Executar.

Eu testei isso em algumas planilhas diferentes e parece funcionar. Sua milhagem pode variar.

informação relacionada