Planilhas do Excel podem ser
desprotegidas quanto à edição de conteúdo. Siga os passos e divirta-se
Com a planilha aberta pressione as
teclas ALT + F11. No menu vá até INSERIR
e depois escolha MÓDULO. Com o módulo aberto cole o conteúdo abaixo na
janela.
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 IntegerOn 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
Depois de colado o código, clique
no botão EXECUTAR na barra de ferramentas ou no menu EXECUTAR escolha EXECUTAR
USER/USERFORM, ou ainda a tecla de atalho F5.
Após um tempo você receberá uma
mensagem que a planilha está desprotegida. Pressionando novamente as teclas ALT
+ F11 você voltará para a planilha agora já com permissão de edição, ou apenas
feche a janela do Visual Basic, a mesmo do módulo. Faça sua edição e salve seu
trabalho.
Comentários
Postar um comentário