Descubra como remover a proteção por
senha de muitos arquivos do Excell, que acabam impedindo a edição.
(Maiores detalhes com imagens clique aqui no arquivo em PDF) já o código
eu diria para copiar ele direto desse blog porque as aspas estavam
desconfiguradas
quando peguei no site. Dei uma arrumada porém se ouver algum erro,
digite novamente as aspas em seu banco de dados do Excell (dentro da
janela que você está colocando esse código).
1.2 Aperte ALT + F11, no teclado:
1.3 Clique em Executar Macro, na nova janela (seta verde)
1.4 Na janela, escreva “senha” e aperte “Criar”
2 Em código, copie e cole os seguintes comandos:
Sub PasswordBreaker()
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
**ps: muita atenção na linha
linha 2) 'Breaks worksheet password protection.
pois a ASPAS simples pode ir modificada ao bloco de notas, caso isso
ocorra irá dar erro de compilação, então é sempre bom apagar e digitar
ela de novo (em teclados abnt2, é a aspa que fica antes do numero 1, a
aspas simples, somente uma aspas)
**ps: muita atenção também na linha
linha 16) MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Pois as ASPAS duplas podem ir modificadas ao bloco de notas, caso isso
ocorra irá dar erro de compilação, então é sempre bom apagar e digitar
elas de novo (em teclados abnt2, é a aspa que fica antes do numero 1, a
aspas duplas, segura SHIFT para digita-la, é na mesma tecla que a apas
da linha 2 porem segurando shift).
3. AGORA BASTA EXECUTAR A MACRO, APERTANDO F5 OU CLICANDO EM EXECUTAR
(dependendo do tamanho da planilha e complexidade da senha pode demorar
até 6 minutos, não faça nada durante esse processo e nunca feche a
planilha durante esse processo)
4. IRÁ APARECER A MENSAGEM "ONE USABLE PASSWORD IR AAAAAAA"
5. PRONTO, A PLANILHA CONTINUARÁ PROTEGIDA, PORÉM QUANDO CLICAR NO BOTÃO
DESPROTEGER (Clica no menu REVISÃO E DEPOIS CLIQUE EM DESPROTEGER
PLANILHA) A PLANILHA NÃO MAIS PEDIRÁ SENHA.
Nenhum comentário:
Postar um comentário