sexta-feira, 20 de setembro de 2013

Desbloqueando planilha excel

Algumas vezes quando recebemos alguma planilha pode ocorrer de estar com senha, ou seja quando tentamos imprimir ou editar precisamos desta senha...
Neste tuto irei ensinar um método que elimina essa senha podendo assim editar o arquivo e fazer qualquer coisa....

Abra a planilha com senha desejada:

aperte ALT F11 e entrará no visual basic
nele aperte inserir / módulo
e cole este código abaixo da linha até antes da linha
--------------------

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 

____________________

Após feito esse comando aperte novamente ALT F11
voltará para planilha, logo aperte ALT F8 e execute o comando DESBLOQUEAR PLANILHA
PRONTO

Após estes passos você terá suia planilha desbloqueada com sucesso...
Enjoy

Nenhum comentário:

Postar um comentário