Remover senha de proteção de uma Planilha do Excel

Para remover a senha da planilha, basta executar o seguinte procedimento no VBA:

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!", vbInformation + vbOKOnly, "Informação"
                                                        Exit Sub
                                                    End If
                                                Next
                                            Next
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
End Sub

Após alguns segundos a senha é removida.

Para aqueles que não estão muito familiarizados com o VBA, criei um suplemento que contém a macro para remover a senha, basta abrir o arquivo que contém a planilha protegida e depois abrir o arquivo DesprotegerPlanilhaAtiva.xla, se aparecer alguma mensagem de segurança, clique em "Habilitar Macros", depois pressione ALT + F8, digite DesprotegerPlanilhaAtiva e clique em Executar.

Download

Google Docs

Vídeo

YouTube

Origem

http://ontraining.com.br/2012/03/05/microsoft-excel-vba-como-retirar-senha-de-protecao-de-planilha/