Desproteger Planilha Excel

Excel - VBA - Quebrar senha planilha protegida
OLa ! hello ! Ohayo Meus(minhas) jovens !

Dessa vez vamos fazer algo um tanto quanto simples, pois é um código copiado, porém muito útil.

Aposto que muitos de vocês já se depararam com alguma planilha travada, campos congelados, impedindo a edição, ou até mesmo formulas ocultas ...

Pois bem, tudo isso pode ser resolvido ... Se você gostou daquela funçãozinha, daquela planilha e quer saber como foi feito, não para "roubar" a idéia de um companheiro, mas para implementar uma idédia sua,so ... let's go dance !

-> Criaremos uma nova planilha ao lado da(s) bloqueada(s)

Segunda coisa -> vamos até a guia EXIBIÇÃO, e então clicamos em MACRO (canto direito)

Na lista que aparece clicamos em GRAVAR MACRO

A seguinte caixa deve aparecer:

-> Não altere nada, clique em Ok.

-> Novamente até a aba EXIBIÇÃO, clicamos em exibir macros

-> Clicamos em EDITAR

-> Após isso será aberta uma nova janela para que coloquemos o código do nosso programinha, primeiro apaguem tudo que tiver na janela e depois vocês colocarão o código:

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 Huhu!!!"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

-> Que ficará assim:

-> Feito, agora é so fechar e ir até a planilha que deseja desbloquear, clicar na guia EXIBIÇÃO > MACRO > EXIBIR MACROS > E