Você colocou senha em uma planilha no excel e se esqueceu? Vc baixou algum arquivo protegido no excel e quer editá-lo??? Já tentou milhares de senhas e não conseguiu nada???
"Seus problemas se acabaram-se"
"Seus problemas se acabaram-se"
Segue abaixo um procedimento com uma macro, que encontrei na net quando precisei (não lembro onde), para desbloquear em apenas alguns segundos uma planilha protegida por senha no EXCEL. Siga os passos abaixo conforme indicados quer não tem como errar.
Passo 1: Abra a planilha protegida e clique ALT+F11 ou Menu: Exibir > Barras de Ferramentas > Visual Basic;
Passo 1: Abra a planilha protegida e clique ALT+F11 ou Menu: Exibir > Barras de Ferramentas > Visual Basic;
Clique na imagem para ampliá-la
Passo 2: Se você fez certo o passo anterior agora deverá estar aberto o Microsoft Visual Basic. Vá em INSERIR > MÓDULO, conforme imagem abaixo;
Clique na imagem para ampliá-la
Passo 3: Insira a rotina abaixo copiando e colando desde a linha "Sub Desbloqueia_Planilha()" até "End Sub", conforme imagem abaixo;
Sub Desbloqueia_Planilha()
Dim i As Integer, j As Integer, k As Integer
Dim 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 "Sua planilha foi desbloqueada "
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Sub Desbloqueia_Planilha()
Dim i As Integer, j As Integer, k As Integer
Dim 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 "Sua planilha foi desbloqueada "
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Clique na imagem para ampliá-la
Passo 4: Digite ALT+F11 novamente para retornar a planilha protegida, e execute a macro. Se você não achar a opção de macro digite ALT+F8. Selecione sua macro (Desproteger_Planilha) e clique em executar.
Clique na imagem para ampliá-la
Passo 5: Aguarde alguns segundos e após a execução da macro será exibida a mensagem "Sua planilha foi desbloqueada".
Clique na imagem para ampliá-la
Pronto agora você pode editá-la como quiser. Espero que consigam e que essa dica tenha sido útil.
Read more: http://www.filhotedepombo.com/2007/09/desproteger-planilha-do-excel.html#ixzz1tvbglHuT
