Quebrando Senha de Planilha Protegida
2 participantes
Página 1 de 1
Quebrando Senha de Planilha Protegida
Quem nunca perdeu a senha de uma planilha levante a mão !
Pois bem isso pode acontecer. Mas para isso temos uma macro que pode resolver o problema.
1 - Abra a planilha que está com a pasta bloqueada
2 - Abra o VBA ( ALT+F11 )
3 - Insira um módulo novo
4 - Copie o código abaixo e cole neste módulo
5 - Feche a janela e volta para a planilha ( aba ) bloqueada, aperte ALT + F8 para abrir a janela de macros e execute a macro Desproteger.
6 - A partir de agora procure não esquercer sua senha kkkkkkk senão volte para o ítem número um !
'Macro ____ Copie daqui pra baixo
Sub Desproteger()
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 "A Senha foi quebrada com sucesso”"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Pois bem isso pode acontecer. Mas para isso temos uma macro que pode resolver o problema.
1 - Abra a planilha que está com a pasta bloqueada
2 - Abra o VBA ( ALT+F11 )
3 - Insira um módulo novo
4 - Copie o código abaixo e cole neste módulo
5 - Feche a janela e volta para a planilha ( aba ) bloqueada, aperte ALT + F8 para abrir a janela de macros e execute a macro Desproteger.
6 - A partir de agora procure não esquercer sua senha kkkkkkk senão volte para o ítem número um !
'Macro ____ Copie daqui pra baixo
Sub Desproteger()
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 "A Senha foi quebrada com sucesso”"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Abrir janela de macros de planilha protegida
Boa noite. Sou novo no fórum e ainda engatinhando em VBA. Preciso da ajuda de vcs. Tenho uma planilha que está protegida e tentei colocar este VB postado na planilha. Contudo, ela não dá permissão nem para abrir a janela de macros (Alt+F11). Existe alguma opção para conseguir abrir a janela de macros e colocar o VBA?
Grato pela ajuda!
Grato pela ajuda!
claudenio mota- Mensagens : 1
Data de inscrição : 27/02/2014
Idade : 48
Localização : Fortaleza
As vezes o VBA está protegido !
Existem casos que você não consegue seguir esta dica porque o VBA está protegido
Não tem problemas, tente fazer assim; Abra uma nova planilha e cole o código, afinal o vba desta não estará protegido.
Agora vá na planilha que está bloqueada, não tem problema, chegando lá, selecione a guia que está protegida e rode a Macro. Pronto ! Planilha desprotegida.
Não tem problemas, tente fazer assim; Abra uma nova planilha e cole o código, afinal o vba desta não estará protegido.
Agora vá na planilha que está bloqueada, não tem problema, chegando lá, selecione a guia que está protegida e rode a Macro. Pronto ! Planilha desprotegida.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|