Últimos Posts

Olá Amigos, tudo On?

Início de ano e sempre é a mesma coisa, fica uma loucura para podermos colocar coisas novas aqui no site. Hoje trago uma dica mega útil para aquelas pessoas que colocam uma senha de proteção de planilha e depois não se lembram qual senha foi utilizada para desprotegê-la.

Só para lembrar, você pode colocar uma senha de proteção de planilha indo até a Aba Revisão, Proteger Planilha.

Para podermos criar nossa macro para retirar a senha da planilha, devemos fazer o seguinte:

Devemos habilitar a aba Desenvolvedor no nosso Microsoft Excel. Para isso, no Excel 2007, você deverá ir ao Botão Office, Opções do Excel e marque a opção Mostrar Guia Desenvolvedor na faixa de opções.

No Excel 2010 você pode habilitar a aba Desenvolvedor clicando com o botão direito sobre qualquer ferramenta de quaquer aba do seu programa e escolha Personalizar faixa de opções. Na janela que se abre, basta você habilitar a caixa Desenvolvedor para ligar a aba.

Com a aba Desenvolvedor habilitada, você ganhará acesso à novas funções no seu Microsoft Excel, como por exemplo, a criação e execução de Macros, que são rotinas programadas, que permitirá que você execute comandos para agilizar o seu trabalho.

Para nosso exemplo vamos seguir o seguinte caminho:

Clique na Aba Desenvolvedor e depois no botão Visual Basic. Este botão é o primeiro da Aba, conforme vemos abaixo:

Você abrirá a tela do Visual Basic Editor (VBE) que é o aplicativo que pemitirá que você edite seus códigos em VBA.

Localize o arquivo que você está trabalhando e clique com o botão direito sobre ele. No menu que surge, escolha, Inserir, Módulo.

Cole a Macro abaixo dentro do módulo que você acabou de criar:

Sub DesprotegerPlanilhaAtiva()

‘ desprotege qualquer planílha com senha

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

Veja se temos o mesmo resultado abaixo:

Agora vamos fechar a janela para voltar para o Microsoft Excel. Na aba Desenvolvedor, clique no botão Macro indicado abaixo:

Quando clicar no botão, você verá que amacro que você criou aparecerá na listagem.

Selecione a Macro e clique no botão executar. Aguarde alguns minutos, dependendo do tamanho da senha e se tudo correr bem, ao final aparecerá a mensagem Planilha desprotegida com Sucesso!

Não esqueça de salvar seu arquivo como Planilha Habilitada para Macros do Excel, pois agora temos código programado nesta planilha. Para isso, pressione F12 para salvar como, e no Tipo do Arquivo escolha a Planilha Habilitada para Macros.

Espero que vocês tenham gostado deste post, caso tenham dúvidas, entrem em contato conosco para que possamos ajudar com dúvidas ou se você tiver interesse em treinamentos.

Um grande abraço e até a próxima!