MODO PRÁTICO DE DESPROTEGER PLANILHA DO EXCEL

Em alguns casos, nos deparamos quando por algum motivo, colocamos senha em arquivos Excel/Word, até ai tudo bem, o problema é quando se passa algum tempo, ai você resgata aquele velho arquivo para visualizar algo, quando derrepende, você se depara com aquele box te pedindo a senha.

Na net achei vários programas e códigos para solução desses problemas, mas o que mais me retornou facilidades, é esse codigo que achei em alguns sites, mas como muitas pessoas tiveram dificuldades em usa-ló, postarei um passo a passo de como usar.

Mas vale ressaltar que esse código funciona apenas com documentos onde eles estejam apenas protegidos para modificação e visualização de documentos, e não para abertura de documentos com proteção ao executa-los.

       

 OBS: Não use esse método em arquivos de terceiros. Alteração de conteúdo de terceiros não autorizado é crime.

         Vamos ao que interessa:

        1 - Com o documento aberto, aperte (ALT+F8),

        

        2 - Com o Microsoft Visual Basic Aberto, Procure por "EstaPasta_de_trabalho" 2 cliks para abrir o documento

              

        3 - Cole o código abaixo da macro no espaço em branco, conforme o print. 

        Sub DesprotegerPlanilhaAtiva()
        Dim i, i1, i2, i3, i4, i5, i6 As Integer, 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 "Planilha desprotegida com sucesso!!!"
        Exit Sub
        End If
        Next
        Next
        Next
        Next
        Next
        Next
        Next
        Next
        Next
        Next
        Next
        Next
        End Sub

        

        3 - Feche o Microsoft Visual Basic, e com a planilha do excel ativa, aperte (ALT+F11)

                  

        4 - Com o Box aberto, voce verá o nome da macro, é so executar.

      

        5 - Se tudo ocorreu bem, você verá esta mensagem informado que sua Planilha foi desprotegida com sucesso.

        


        

        É isso ai pessoal, e até a próxima.