::: Desproteger Planilha :::

Segue abaixo código de uma macro que serve para desproteger a planilha ativa.

Para utilizar essa macro:

- copie o código abaixo;

- crie uma planilha nova no Excel (ou no mesmo arquivo ou em uma pasta de trabalho nova)

- crie uma macro nova, vá em Ferramentas / Macros / Macros

- aparecerá uma janela com todas macros disponíveis, no campo nome de macro escreva nome e o botão Criar estará disponível, clique nele.

- agora no Visual Basic (editor de macros), apague as duas linhas criadas e cole o código;

- salve o arquivo clicando no disquete;

- feche o arquivo clicando no X, ele voltará para planilha no Excel;

- agora é só executar a macro na planilha protegida.

Código da macro:
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

Baixar arquivo para testar a macro de Desproteger