USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (VBA)

Título da Dica:  Desproteger planilha
Postada em 16/2/2006 por Geronimo            
Se você usou a opção de proteger sua planilha Excel contra alterações e acabou
esquecendo a senha não precisa se preocupar, o código abaixo irá lhe mostrar
como remover a proteção destas planilhas...
É claro que existem muitas outras maneiras de fazer a mesma coisa, em
informática isto é regra. Mas como bom programador da linguagem Basic você
pode preferir fazer isto utilizando código em uma rotina geral, que servirá
para qualquer planilha ativa. Você  poderá criar por exemplo uma macro e
atribui-la a um botão, sei lá. O importante é melhorar o código abaixo e
até adaptá-lo de acordo com seus objetivos e/ou necessidades.
Se o código não tiver outra utilidade, ainda valerá pelo menos como
curiosidade. Mas não esqueça, este código funcionará somente para a senha
implementada através do menu Ferramentas - Proteger - Proteger Planilha,
para remover outras senhas o código é diferente e demora muiiiiito mais
tempo.

Abra o Editor do Visual Basic do Excel, insira  um módulo e cole o código
abaixo. Volte para planilha que está protegida, pressione Alt F8 e aguarde,
dependendo da senha e é claro da máquina, pode demorar um pouquinho
mas destrava.

                                                           VENON STORM...



Option Explicit

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!!!"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página