|
|
|
|
 |
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
|
|
|
|
|
