O mesmo deve ser executado dentro da guia de desenvolvedor como VBA.
Acessando Guia do Visual Basic: Pressione CTRL + F11 para ativar esta tela, aplique o c?digo em cada planilha a desbloquear.
Pronto, pode editar os campos bloqueados normalmente.
Sub
DesprotegerPlanilhaAtiva()
Dim
i, i1, i2, i3, i4, i5, i6
As
Integer
, j
, k
, l
, m
, n
On
Error
Resume
Next
For
i = 65
To
66
j = 65
k = 65
l = 65
m = 65
i1 = 65
i2 = 65
i3 = 65
i4 = 65
i5 = 65
i6 = 65
n = 32
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
End
Além do artigo possuir um erro fundamental, acho errado que tal código seja divulgado no site oficial da Microsoft, uma vez que ensina a burlar uma das medidas de segurança do Excel.
Bom Dia,
Veja com o código algo construtivo, algo que a Equipe possa corrigir nos aplicativos do Office, uma falha como tantas outras.
O código pode ter Erros fundamentais, porem te garanto que funciona.
Abs.
Muito obrigado Wagner. Esse Benzadeus é um invejoso mesmo. As pessoas inteligentes e esforçadas como você que ajudam a aperfeiçoar o programa e torna-lo mais seguro. Parabéns.
Não funcionou