Script para desproteger uma planilha no Excel

4

Muitas vezes você protege uma planilha do  Excel com uma senha e posteriormente ao esquece-la não tem como editar a respectiva  planilha, já que todas as células estarão protegidas contra qualquer modificação.

Como resolver isso se eu esqueci a senha? Siga os passos a seguir para desbloquear a planilha: 

1. Abra a planilha protegida e acione a combinação  de  teclas ALT+F11.

2. Você está agora no  modo de edição do Visual Basic. Clique no Menu Inserir e seguidamente na opção módulo, conforme mostra a figura acima.

3. Na tela de edição cole o script logo abaixo (Sub Desprotegendoplanilha()). Salve e  feche a tela de edição.

4. Clique no menu Desenvolvedor e no grupo Código clique no botão Macros

5

5. Na caixa de diálogo Macros estará sendo  mostrado o nome do script que você adicionou  no Visual Basic. Clique em EXECUTAR e aguarde até que o processo seja concluído, como mostra na imagem abaixo.

6

    • Observação importante: Caso o menu  DESENVOLVEDOR não  esteja  aparecendo na sua planilha clique no menu Arquivo e  em Opções. Feito isso selecione a opção Personalizar Faixa de Opções. Na janela Opções do Excel marque  a caixa Desenvolvedor no painel direito da  janela e confirme OK.

7

SCRIPT PARA DESPROTEGER A PLANILHA

Sub Desprotegendoplanilha()
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

Comentários

Postagens mais visitadas