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

 

  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

 


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