|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Desproteger planilha do excel
|
 |
|
|
|
Postada em 4/5/2006 por Geronimo
Em um modulo faça :
'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.
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
|
|
|
|
|
