Senha do Microsoft Excel

0

Eu tenho dois arquivos do Excel que criei há um ano. Ambos os arquivos estão protegidos.

  • Um arquivo do Excel não pode ser aberto / editado sem entrar corretamente senha.
  • E em outro arquivo do Excel, Protect Sheet está habilitado em alguns células específicas.

Eu baixei algumas ferramentas para recuperação de ambos os tipos de senha, mas nenhuma das ferramentas funcionou com sucesso. Também eu tinha passado por Excel Password Recovery . A ferramenta mencionada neste link não funcionou.

Por favor, deixe-me saber como corrigi-lo?

Atenciosamente

InTech

    
por InTech 01.02.2017 / 19:08

1 resposta

0

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

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

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

Clique em Popular e, em seguida, selecione a caixa de seleção Mostrar desenvolvedor na faixa de opções.

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

Copieocódigoaseguirecole-oemseunovomódulo:

SubPasswordBreaker()'Authorunknown'Breaksworksheetpasswordprotection.DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsIntegerOnErrorResumeNextFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox"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, em seguida, feche o editor do VBA.

Em 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 fazer o truque. Sua milhagem pode variar.

    
por 10.02.2017 / 18:23