Desbloquear Planilha Excel Com Senha | Quebrar Senha Excel

Quer aprender como desbloquear uma planilha de Excel protegida com senha, como quebrar senha no Excel? Essa é uma dúvida muito comum no dia a dia dos profissionais que trabalham com Excel.

Perdeu a senha da sua Planilha Excel?

Faz parte da rotina proteger arquivos e documentos com senha. A proteção por senha no excel é uma forma de proteger os dados de um documento. Com essa proteção, informações preciosas contidas numa planilha, por exemplo, são conservadas impedindo que um usuário sem autorização faça qualquer tipo de edição ou alteração no documento.

Também é usada em planilhas que são apenas informativas. Desse modo, o usuário pode ler as informações inseridas, contudo não consegue alterá-las.

Mas o que fazer quando você é o proprietário e esqueceu o acesso e precisa quebrar a senha do excel para editar sua planilha?

Ou às vezes, quando é necessário alterar uma planilha antiga, e o problema é que você não se lembra mais do acesso?

Pensando em com fazer para desproteger a planilha com senha, eu trouxe uma dica simples e prática, porém muito eficaz que vai ajudar a resolver esse problema. Uma macro para desproteger planilhas.

Vou compartilhar gratuitamente essa dica, pois ela pode ser muito útil para retirar a proteção do Excel e para desbloquear suas planilhas.

Como desbloquear planilha de Excel com senha:

'Desproteger Planilha
Sub DesprotegerPlanilhaAtiva()

    Dim i, i1, i2, i3, i4, i5, i6 As Integer
    Dim j As Integer, k As Integer, l As Integer, m As Integer, n 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 n
                                            Next i6
                                        Next i5
                                    Next i4
                                Next i3
                            Next i2
                        Next i1
                    Next m
                Next l
            Next k
        Next j
    Next i

End Sub

Sugiro que mesmo que você não tenha necessidade agora, salve este código fonte, porque ele pode ser muito útil, e você não sabe quando irá precisar.

5/5 - (Total de avaliações: 2)
Sair da versão mobile