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/
muito bom
ResponderExcluirEsse código é 10
ResponderExcluirEstou tentando
ResponderExcluirÉ bem simples, já me ajudou várias vezes, são tantas senhas que acabamos esquecendo!
Excluirmuit bom
ResponderExcluirPerfeito simples e muito eficiente, obrigado e parabéns
ResponderExcluirMuito bom.....valeuuuu
ResponderExcluirMUITO BOM, OBRIGADO.
ResponderExcluirEsto tentando Mais, Não Consigo.
ResponderExcluirA Minha Planilha E Muito Grande isso atrapalha?
As planilhas que já fiz eram pequenas, chega a dar algum erro? Ou não acontece nada?
ExcluirExcelente, muito obrigado
ResponderExcluir